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PREFÁOO 


St voce tem um TK 82C, N£ Z8000, CP 200 ou TK 85, ou, st pre 
tende usar, ou ainda adquirir um deles, estas páginas foram 
feitas para voce. 

Com o objetivo <Je demonstrar as diferentes fundões e instru 
çÕes, esclarecendo a capacidade do micro, reuni para voce mais 
de 45 programas entre jogos, arquivos, movimentos, contabilida 
de, etc. ...» prontos oara "rodar". 

A maioria dos programas foi escrita para 2 Kbytes de RAM. sem 
SLOW, podendo ser facilmente convertida para 1 Kbyte de RAM, 
com excessào do jogo da velha e do controle de contà bancária, 
além dos declarados para 16 Kbytes de RAM. , 

Certamente, muito do que aqui está escrito veio nio só da teo 
na, mas do uso do microcomputador que, com seus 15 indicado 
res e "N" detetores de erro, é o melhor tutor na elaboração e 
correção de programas. 

Portanto, mãos ao micro. 


Delio Santos Lima 

Caixa Postal 100 

12 200 São José dos Campos - SP 

Brasil 
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A. Par* obter o número de bytes ocupados pelo programa: 

PR!M PEEK 16396 ♦ 296 • PEEK 16397 - 16509 

Incluindo variáveis e display: 

PR1NT PEEK )6404 4 296 • PEEK 16405 - 16909 
Use o comando diretamente como indicado e Ne» Lme. 

B. Para imprimir o conjunto de caracteres: 

10 POR N * 0 T 0 299 
20 PR1NT CHR$ N; 

30 ME XT N 

C. Para ler a ROM, imprimindo-a em tabelas de 15 em 19 endereços, com 
leitura no sistema decimal: 

10 LET N * 1 

20 PRINT "ENDEREÇO-."BYTE" 

22 PRIMT 
2* PRINT 

26 LET X s 15 •(« - 1) 

30 rOR A « X TC (15 • IC) 

40 PRIKT A # PEEK A 
44 NEXT A 
48 PRINT 

90 PR1NT "P/ PROXS. BYTES OICITE 0" 

55 IKPUT PS 

60 IF PS«»~0- THCN COTE 55 
62 CLS 

65 LET K * M ♦ i 

70 IF A»* 8191 THEN STOP 

75 COTO 20 
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0 primeiro endereço após a palavra chave REM » n * primeira linha é 
16514, utilizável na função JSR. 

4 simples existência de uma Unha no programa ocupa cinco bytes. Do 
is para o número da linna, dois para o comprimento e um para o ter 
mino (Ne* Line ) . 

Constantes numéricas, como «, 1. 11.33452, e.ceto PI, ocupam o núme 
ro de dígitos oue voce pode contar, incluindo o ponto decimal, se 
houver, acrescidos de seis bytes. Toda constante númenca no progra 
ma é seguida do código 126, segu»ndo-se de 5 bytes de data. Estes 6 
bytes nio aparecem na listagem. LET 4.1 ocupa 15 bytes. 

Variáveis numéricas ocupam 5 bytes cada, acrescidas do numero de ca 
racte^es do ncme da variável. 

Alfanuméricas ocupam apenas 1 byte extra, além da sua quantidade de 
caracteres, a menos que sejam dimensionadas. Neste caso, custam 4 
bytes extras. 

Uma matriz do tipo X(N) ocupa 5 * N+õ bytes. 

As variáveis do sistema ocupam 125 bytes. Oe 16384 a 16509. 

A mearia de video nio é fixa, flutuando no topo da memória usada 
para o sistema de variáveis e programa. Usa a Ram do usuário. 

F4ST/SL0». A velocidade de process4"«" to **> « selecionável por 
softmare. 

Impressora; a ROM de 8 Kbytes permite instruções LPRINT, LLIST e 
COPY, estando apta a comandar a impressora. NÃO é compitivel com ou 
tros sistemas. 

Interface para cassette: utiliza gravador cassette convencional de 
audio com transferência de dados a 250 Baud. NÃO é compitivel com 
outros sistemas. 
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MOVIMENTOS 


10 R£M MICRO* £LETR0K1CA 
20 F GR K * 1 TO 24 
30 PRINT AT 20 “ «»*;"•• 

40 INPUT UE 
50 CLS 
60 K'EXT K 
70 RUN 

Digite New Line pA»*e obter ume aproximeçio de movimento. 


10 LET A = 20 
20 LCT E = 0^ 

30 PR1MT *T 
40 LlT 4 » A • 1 
50 LET E s B ♦ 1 
6(T IF ;> = 1 TH£« GOTO 30 


Acrescente eo progreme ecime. ultimo. 

70 LCT C = 19 
6? LCT 0 . (í 
9? PflIKT AT C,D;"«" 

1?? HT C ■ C • 1 
11? LET C . 0 ♦ 1 
115 PAUSE 2? 

12? IF C •» * 1 THEP CGTC 9? 
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invasores 



+ 



< ¥ > 

* * ★ 
♦ 


♦ 

** * 

♦ ★ * * * 
*+ * 

♦ 


2 FAST 

5 REM MIC ROR ELETRÔNICA 
lfí PRIWT AT 5 t 6;"lNVASGRES" 

12 PR1KT AT 8 y 0 ; "SE RAO LANÇADOS MI5£EIS" 
1A PRINT "CONTRA O INVASOR" 

15 PRINT "QUE VIRA DE C1KA" 

16 PRINT "F/ CU1AR O KISSEL" 

17 PRINT "Dl Cl TE <M OU M> " 

18 PAUSE 500 
70 LET Y = 16 

22 LET 2=0 

23 CLS 

3JT FCR Z = 1 TO 6 
<■? LET C = 70 


5(T LET X « INT (RND • 3) 

6fT LET P = 13 -(12 AND X * 0) *(12 AND X = 2) ♦ INT(RN9 • 5) 
70 LET PS = "F" ♦ (-41- AND X = 0) « ("-1- ANO X = 2) 

8JÍ FOR H = 2 TC 19 
90 LCT p s VAL PS 

100 LET Y = Y .(1 AND INKEYS = "K") -(1 AND INKEYS ="N") 

110 CLS 

120 PRIKT AT ?íT,Y-lAT 21, Y-l; ; AT H.P-ljflBB"; 

AT H-l f P-l; *aBB";AT H-2 t P-l|"< >";AT C-l,Y;-4-;AT C,Y5 


i;7 ir C = H AND Y = P THE ff GOTO 2?5 
16? l£1 _ « C-l 
16? PAUSE 3? 

15R NEXT H 

155 PR1 \T "O INVASOR ATERROU" 

156 P:.LS!T 2?? 

15C PRINT 

159 ir 2 = 1 THEN PRINT "MlSSEl PERiviDO" 

160 ir Z = 2 THEN PRINT "MA PONTARIA" 

i:? IF 2 = 3 THEN PRJ NT"DE FENDA O SEU PLANETA" 

'65 IF Z = 4 THEN PRINT "OUTRO PTISSEL PERDIDO" 

166 ÍT 2 = 5 THEN PRINT "EH O 50 INVASOR" 

168 3 F 2 = 6 THEN PRINT "CS INVASORES VENCERAM" 

169 PAUSE 2?? 

17? CLS 

175 NEXT 2 

18? PRINT AT 1?»?;"INVASORES :";6*Q ."DESTRUÍDOS :";C 
19? PAUSE 2?? 

191 COSU0 3?? 

192 CLS 
194 RUN 

2?5 LET 0 = Q ♦ 1 

21? PRINT AT H-l,P;"*";TAB .. ;TA0 P;"*" 

211 frAUSE 6? 

212 PRINT AT H-2,P5""";AT H t P-2;"«"|AT H-l f P-l; 
AT H r P*25"*";AT H*1,P-1;"••••;AT H*2 f P;""" 

213 PRINT AT ?,2?;"DESTRUID0S :";G 
215 PAUSE 2?? 

22? LET Z = Z - 1 
23? LET C « 2? 

26? GOTO 17? 

3?? PRINT 
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302 FCR V = 1 TO 8 

304 PR1KT -IM/ASAO COKPLCTA •; 
306 NEXT V 

303 PAUSE. 300 
310 RETURN 


Para 1 Kbyte de RAM remova as linhas: 

191, 159 a 168, 30® a 310 

As linhas 211 e 212 também podem ser removidas. 

O invasor só é destruído.,quando atingido ao centro. Caso esteja mui 
to oiricil, reescreva: 

130 IF C = H AND Y>*P - 2 AND Y-<P * 2 THEfc COTO 205 


Para rodar em SI.OW, inclua as seguintes linhas: 


2 SIÜW 

18 ir INKC Y$ = "" THCN CUTO 19 
14? RCM 
156 GOSUB 320 
169 GOSUB 320 
190 GOSUB 3?0 
211 R» M 
215 GOSUB 320 
306 GOSUB 320 
320 rOR T=1 TO 50 
330 NFXT T 
340 RFTURN 
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S/GA A TRILHA 


2 FAST 

5 REM MICRON ELETRÓNICA 
0 PR1NT AT 6,0; m SIGA A TRILHA" 

10 PR1NT 
12 PRINT 

IA PRINT "USE TECLAS 3 E K" 

15 PAUSE 300 

16 LET M « 0 

17 LET H * 0 
10 CLS 

20 OI H X(7) > 

22 PRINT AT 18,0;"-" 

2A PRINT AT 15,0;"4" 

30 FOR K ai TO 7 

32 LET X(n) r 1NT (RND • 3) 

34 LET Y r X(l) 

36 PLOT N • 9 f X(N) 4 8 
38 NEXT K 

60 FOR Z « 1 TO 63 

42 IF (Z/9)* INT (Z/9) THEN G0SU3 70 
44 PLOT Z;Y ♦ B) 

48 LET X * Y 

50 LET Y * Y -(1 ANO INKEYl 8 "J") 4 (1 AND INKEYl * "K") 
52 UNPLOT (Z - 1) , (Y « 8) 

54 PAUSE 30 
56 NEXT Z 
58 LET H 8 H 4 1 

60 COTO 92 

70 1F Y*<> X(Z/9) THEfí COTO 90 
72 RETURN 
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9^ LET W » H ♦ 1 

92 PRINT AT 19 t jf;"MlCR0 ";M,"HUMANO ";H 
94 PAUSE ÍTJT 

96 ir H = 3 THEN COTO 100 
98 GOTO 10 

100 PRINT "VC. GASTOU AS 3 CHANCES" 

1JÍ2 PRINT "OUTRA VEZ ? OIGITC NEW UNE" 

103 IfJPlfT A$ 

104 CLS 
106 RUN 

Para rodar no modo Si.Ou, inclua: 

2 SLOW 

15 IF INKEYl = "" THEN GOTO 15 
54 REH 

94 FOR T=1 TO 50 

95 NEXT í 


Caao fique multo rápido, uae como retardo: 
54 LET T=RND*RND 
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21 PAUTOS 


VC. TIROU 3 
EU TIREI 3 



15 PALITO(S) 
QT05. UC. TIRA ? 


0 REM MICRON ELETRÔNICA COM 1 ND LTDA 

1 RAND 

2 LEI A =21 

3 PRINT "DOCC DOS 71 PALITOS" 

4 PRINT 

5 PRINT "TI RAND 3 DE 1 A 3 PAtlTOS" 

6 PRINT "PtROL ACUELE CUE" 

7 PRINT "RETIRAR O JLTIMO PAUTO" 

3 PRINT 

9 PRINT "DIGITE ENTER" 

10 INPUT Pl 

11 CLS 

12 rCR 0=1 TO 4 

13 FOR C=1 TO A 

1A IF 0 = 1 THEN PRINT "D" 

15 1F B >1 THEN PRINT "B" 

16 NE XT C 

17 PRINT 

18 NE XT B 

19 PRINT 

20 PRINT A;" PALITO(S)" 

21 IF A = 1 THEN GOT3 39 

22 PRINT "QTOS. MC . TIRA?" 

23 INPUT X 

24 PRINT X 

25 IF X=A THEN COTO 39 

26 IF X< 1 OP X >3 OR X >A THEN COTO 23 

27 LET A=A-X 
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28 IF A = 1 THEN GOTO 41 

29 LET Y=A-4*INT (A/4) 

30 IF A = 1 THEN LET M=UINT (3 # RND) 

31 IF r<>l THEN LET M=Y+3-4*INT ((Y*3)/4) 

32 LET A=A-H 

33 IF A<=0 THEN GOTO 41 

34 CLS 

35 PRINT ”VC. TIROU "; X 

36 PRINT -EU TIREI ";M 

37 PRINT 

38 GOTO 12 

39 PRINT "EU VENCI” 

40 GOTO 42 

41 PRINT "VC. VENCEU" 

42 PRINT 

43 PRINT "OUTRA VEZ 7" 

44 ORI/KT «DIGITE ENTER" 

45 INPUT Pl 

46 CLS 

47 RUN 

48 SAVE -PALITOS* 

49 CLS 

50 RUN 
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AO PATO 


5 FA5T 

10 nzr. MICRON ELETROUI CA 
12 LET 3 = / 

2 0 PRINT AT 6"CACA AO PATO“ 

10 PR1NT " *" 

H0 PRINT 

50 PRINT “VOCE TEK 5 TIROS“ 

60 PRINT “PARA ACERTAR O PATO“ 

70 PRINT “OCULTO NAS NUUENS“ 

8JÍ PRINT 

82 PRINT “CONTROLE A r LECHA", ,*NAS TECLAS <N M> " 
84 PRINT 

86 PRINT “Dl CITE ENTER* 

100 lfiPUT S£ 

1 X^í CLS 

115 FCR 2 =1 TO 5 
120 rCR K =1 TO 4 
125 CLS 

11/ LET Y í 1NT (RND • 10) 

1*0 PRIKT AT 1,2 * Y;“S®*;AT 2,2 * Y}"®!" 

150 PAUS-: 10 
17/ KLJCT U 
150 PRINT 

195 PRINT “C PATO flC; NA ULT. PE‘S1CA0“ 

200 P^H.T “ T £ • . T E ••••",“ ,ACERTA-LO“ 

210 PAUS: 1 20 
215 I ET K - 17 
210 !£T X r. 1/ 

11/ Fn* I. = : TC 15 
235 I r N>-j TSEr CL5 
240 PUM MT K - K , X; “ ♦ “ 

245 1 INKEVí = *U* THEN LET X «X - l 
24b i. ii-ic^i = "h“ LET X =X ♦ 1 

*50 PfJS? 10 
26/ NEXT X 
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77? ir h:t(x/2;=v them cgtc 5?? 

2G? PRIKT AT i t 2* Y ; 'flE" ; AT 2,2 • Y j ”® 1 
3?? PRIKT mm 

32? PRIKT "G PATC EH .ICE" 

33? P4U5C 12? 

4?? KEXT 2 
45? GOTO 6 ?? 

5?? PRIWT AT 2,Y * 2;*C3" 

51? PRIMI AT 3, Y * 2 
57? PRIKT 

53? PRIKT "PATO ACCRTPOC" 

54? pri:;t -porto cakho* 

55f LcT 3 = 3 4 1 
555 PRUSC 2?? 

5ó? NEXT Z 
6 ?? PRIKT 
6 1? PRIN7 

62? PRIKT -DE 5 TIRCS* 

61? PRIWT "VC. ACERTCU 3 
66? PRIKT 

65? PRIKT "OUTRA VEZ ? DIGITE CNTER" 

66? IttPUT St 
67? CLS 
68 ? RUu 

Para rodar em SLO*. inclua: 

5 SLIJW 
15? REM 
225 REM 
25? REH 
34? GOSUB 9?? 

4?? C05U0 9?? 

555 GOSUB 9?? 

556 C0SU9 9?? 

9?? rOR T =1 TO 12 ? 

91? ME XT T 
92? RETURN 
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BATERIA ANTIAEREA 


5 F AST 

10 REK MICRON ELETRÓNICA 
90 LET Z « 0 

100 PRINT "SUA BATERIA ANTiACREA" 

110 PR1NT -TEM 10 CANHCES" 

120 PRINT "E 5 TIROS P/ ACERTAR - 
122 PRINT H UM A k/l AG LCULTU NAS NUYENS" 

110 PRINT 

132 PRINT -P/ COHECAR DIGITE 0 m 
134 1NPUT J 
136 CLS 

U0 ir 3**0 THEN GGTO 100 
15jT GGSU8 1000 
200 PRINT 

202 PRINT "2UAL EH O CANHAO ?• 

2^5 INPUT X 

206 PRINT X 

2fT6 LET Y « 15 

210 rOR fJ s 1 TC 12 

220 PRINT AT Y,X • 3;-*" 

225 LET Y * Y - 1 
210 PAUSE 3 • Y 
260 NE XT N 

100 LET V = INT (RrJO « 9) 

110 PRINT AT 2,(W * 3); ,, H1B" 

120 PRINT AT 3, (V/ * 3) 5 "H]" 

170 IF V«X THEN PRINT AT 0 f 2 ; "ERRCU.. 

325 1 r Vo-X THEN LET 2 = 2 ♦ 1 

110 IF V = X THEN PRINT AT 0,2;"ES5E JAH ERA." 

335 PAUSE 120 

337 IF V = X THEN GOSUB 1500 

1L0 IF X r (V* 1) THEN PRINT AT 0,2 ; "C LiASE ... - 
362 ir X = (U-l) THEN PRINT AT jí, 2 ;-POR POUCO.... 
150 IF X 4 3*<V THEN PRINT AT 1,2;"PESS1MC TIRO" 
36JÍ IF X - 3>V THEN PRINT “ VC. SCH OAH FORA ...* 
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*00 
812 
814 
8 20 
90 $ 
905 
910 
912 
914 
916 
920 
930 
940 
950 
960 
980 
985 
990 
10*0 
1000 
1050 
1060 
1510 
1520 


PAUSE 300 
CLS 

IF Z = 5 THEN COTC 900 
COTO 180 

PRINT "AGORA CHECA." 

PR1NT "ERRANDO 5 TIROS, » 

PAUSE 120 
PRINT 

PRINT "SOU EU QUEM TE ACERTA" 

PAUSE 150 
CLS 

FOR K = 1 TO 5 

PRINT "BUH BUUUH BBUUHMK 8UH BUUKK"; 

PAUSE 20 

NEXT K 

PAUSE 120 

CLS 

COTO 80 

PRINT AT 16,0 ;"■■■■■! 
PRINT "■■■■■! 

RETURN 


PRINT AT 1,15; 
RETURN 
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DESENHE NA TELA 


2 R£K HICRUN ELCTROWlCA 

4 LcT X * 8 

5 PRINT "USE OS COKfiNDQS/TCCLAS ",,"5 f 6,7,8" 

6 PRINT 

7 PRINT "ENTRE 0 P/ COMECAR’ 

8 INPUT Pf 

9 CLS 

10 1F Pt""* " THEfc COTO 8 
12 LET 2 = 0 

14 LET N = Z 

16 LET h = N 

18 LCT Y = Z ^ 

20 PRINT AT Y,7;CHRi (x) 

22 * LET K = Y 

24 LET N = Y 

26 LET Z = Z ♦ (1NKE Y$ = "8" ANO Z ^29) - (1NKCYÍ = "S" ANO Z*>-2) 

28 LCT Y a Y 4 (INKL Y$ = "6" AND Y <=18) - (INKCYi="7" ANO Y>2) 

30 PAUSE 10 
*0 COTO 20 

Na linha 4, o valor de X correaponde ao código do caractere utilizado e 
voce pode altera-lo por: 

&REAK 

LET X = 21 e New Line 
COTO 20 e Kew Line 
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LOTERIA ESPORTIVA 


5 RAND 

10 REM MICRON ELETRÔNICA 
20 PRINT "CARTAO DA LOTECA* 

>1 1 PRINT -13 PONTOS SORTEADOS* 

A0 rOR X = 1 TC 13 

50 LET R . INT (RND • 3) ♦ 1 

&0 PRINT AT X . 3,R • 2; C HR| 131 , X 

70 NEXT X 

80 PRINT 

90 PRINT "CUPLO E TRIPLO EH COM VC." 
100 PRINT -OUTRO CARTAO ?• 

110 PRINT -D1CITE NEW LI NE* 

120 1NPUT PS 
130 CLS 
1A0 RUN 
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VELHA 


2 REM KICROfc ELETRCN1 CP 

3 LET V * 0 

4 IET K » í 
6 LET 3 * 0 

8 Dl* X(9) 

9 COTO 24 

10 LET 25 *"59132987963756471" 

12 COSUe 200 

13 LET A * I 
16 COS UR 200 
16 LET 0 = 1 

18 LET 4*1 

19 COSUB 200 

20 LET C = I 

21 LET 4*0 

22 RETURK 

26 PRIKT "DOCC OA VELHA" 

26 PRINT 

28 PRINT -VOCE COMECA ? S/N" 

30 INPUT pí 

31 CLS 

32 ir P$ ="5" THEfi COTO B0 
36 PRINT 

35 LET O = 0 

36 PRINT "O MICRO 30GA" 

38 PRINT "DIGITE ENTER" 

40 INPUT XS 


30G0 DA VELHA 

• • 

: : 


SUA VEZ - 1 A 9 
QUAL A POSICAO? 

12 3 

4 5 6 

7 8 9 
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42 CLS 

44 COSUE 10 

46 FOR N 8 1 TO 8 

48 Ir X(A) 4 X( 8 ) ♦ X(c) « 1*4 THEN COTO 72 
5* COSUB 1? 

5? NE XT K 
54 COSUB 10 
56 FOR N * 1 TO 8 

58 1í X(A) ♦ X(B) ♦ X(C) = 12? THEN COTC 72 
64 CCSUP 12 
62 NEXT N 

64 LCT R = 1NT (RND • 9) ♦ 1 
66 IF X(R)<>’* THEN COTO 64 
68 LCT X(R) = 52 
70 COTl 80 

72 ir X(A) 8 * THEN LET Y 8 A 

74 ir X(B) = * THEN LET Y 8 8 

76 IF X(C) * * THEN LET Y 8 C 

7e LET X(Y) 8 52 
82 LET K s K 4l 
84 rOR T = 1 TO 9 
86 PRINT CHRÈ (x(T)); 

Bfl ir T s 3 OH T s 6 THEN COTC 96 

9/ IF T * 9 THEN COTO 1^2 

92 PRINT 
94 NEXT T 
96 PRINT 

98 PRINT •«••••" 

100 NEXT T 

102 PRINT 

103 PRINT 
1*4 COSUB 10 

106 FOR K t 1 TÜ 8 

108 IF X(A) ♦ X(B) ♦ X(C) = 183 THEN COTC 162 

110 IF X(A) ♦ X(B) ♦ X(C) 8 156 THEN COTO 166 

112 CCSU9 12 

114 NEXT N 

115 ir K = 9 THEN COTO 17* 

116 IF O = 1 THEN COTL 34 
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117 FRINT -SUA VEZ" 

1 PRINT "CUAL A POSICAO*" 

12? COSUB 140 
1?4 1 fiíPUT H 

125 IF H»9 GR X(H)<^ THCN GOTO 124 

126 CLS 

12fi LCT X(H) = 61 
129 LET 2 = 1 
13JÍ GOTO 60 
140 PR] NT 
14? PRINT "1 2 3" 

144 PRI *JT 

14.6 PR1KT H 4 5 6" 

146 PR1M 
150 PRINT "7 B 9- 
152 RCTURu 
160 PRI ff T 

162 PR] M "O HUMANO VENCEU" 

164 COTO 17? 

166 PRltlT "0 MICRO VENCEU" 

169 COTO 17? 

170 PRINT "EMPATE" 

172 PRIM 

174 PRIM "CUT RA VEZ? S?" 

176 INPUT PS 

170 IF P$0"S" THlN GOTO 176 
100 CLS 
182 RUN 

200 LET 1 = COOE (ZS) - 28 
205 IF W = 1 THCN RETURN 
210 LET ZS = ZS (2 TO) 

220 RETURN 


OBSERVAÇÃO: 

Nas lírhas 1J, -*6, 29 c 2M existe a variável I (let^a i). 

Nas linhas 18, 116, 129 e 20‘j existe a constante numérica 1 !umi. 
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FORCA 


05 ficH RICROK E LETROWI CA 

10 PRINT D4 FORÇflk **»*»» » 

11 PRINT 

12 LET K » 0 

14 LCT T s K 

16 LET C - Y 

1B COTO 330 

77 PRINT 

24 PRINT -:U4l PALAVRA- 
26 PRINT -DEVC ESCONDER ?■ 

30 INPUT Xf 
32 CLS 

34 PRINT 

35 PRINT 

36 PRINT 

40 LCT X r LEI X$ 

48 PRINT 4T 1 # 0;-A PALAVRA EH DE -;X;" LETRAS" 
50 LET 2$ = 

60 FOR Z = 1 TO (X - 1) 

70 LET Zf = Zf ♦ 

B0 NE XT Z 

90 PRINT AT 10,3; Zf 

92 PRINT AT 18,0; "QUE LETRA VC. OUER TENTAR ?" 

93 PRINT 

94 IF C>3 THE*.' PRINT "DESISTE ? DIGITE 0" 

100 INPUT Lf 

.110 LET C = 0 
120 FOR t: = 1 TO X 

130 1F XS(*.') -= LS THCN PRINT AT 9,(2 ♦ N);Ll 

135 1F Xf(N) x Lf THCN- LET K = K 4 1 

1*0 1F K = X THfN COTO 300 

145 Ir Xí (N)-c»Ll THCN LET C « C ♦ 1 

150 NEXT H 

160 IF Lf = "0" THEf. COTO 230 
1 ? 0 IF C = X THCN GCSUC 170 
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180* COTO 92 
190 LCT Y = Y ♦ 1 

194 PRIKT AT 3,0;"E DC ";IM (X/2);" CHANCQS * 

200 ir V >= IKT (X/2) THE* COTO 230 

210 PR! WT "VC. 3AH CASTOU ";Y 

220 RETURN 

230 CLS 

24i0 PRIKT M NE5TA, VC. TAH ERA.",,, 

2íil PAUSE 300 

242 PRIKT 

243 PRIKT "* HOMEM ENFORCADO." 

2*4 PR1NT 

245 PRIKT 

246 PRIKT "A PALAVRA ERA : "; XE 
270 PRIKT OUTRA VEZ ? S/N" 

260 INPUT P$ 

290 ir P$c^>"S" THCN COTC 2e0 
292 CLS 
294 RUN 
300 CLS 

305 PRIKT "CK VC. ACERTOU" 

310 PRIKT 
320 COTC 245 

330 PRIKT "VOCC CUER DAR A PALAVRA ? S/K* 

332 IWPUT PS 

334 I F PS = "N" THEK COTC 34*2 
336 IF P$ = "S" THEN COTO 22 
338 COTO 332 
342 RAND 

344 LET S = IKT (RfiD * 7) 4 1 
348 DIK S£ (7,7) 

350 LCT SS(1) = "TÉCNICO" 

352 LET SSÍ2) = "MEMÓRIA" 

354 LET SS(3) = "URIDADE" 

356 LET SS(4) = "COMANDO" 

358 LET SS(5) = "GRAFICO" 

360 LET S$(6) = "CALCULO" 


26 



362 LET S$(7) = -KUNOI*f 
368 LET XÍ « 5S(S) 

370 COTO 32 

Para 1 Kbyte de RAM, retire a linha 18 e toda* a* de 330 



ADIVINHE 0 NÚMERO 


5 RAND 

10 REM MICRON ELETRCr ICA 

20 PRiSt AT B,0ADI V/lMHE O NUMERO" 

30 PRINT "NE5TE JOGO, EU (O ^ICRC)" 

40 PRINT "ESCOuHO LM NQDE 1 A 100" 

45 PRINT "E VOCE ADIVINHA. EU DOU AS DICAS" 

50 PRINT 

60 PRINT "P/ COMECAR DIGITE 0" 

70 INPUT PS 7i LET Z * 1 

80 CLS 

90 1F P$«>"0"THEN GOTO 20 
100 LET R = 1 ♦ 1NT (RND * 100 ) 

110 PRINT "EU 3AH ESCOLHI C NUMERO" 

120 IF Z > 1 THEN' CLS 

130 ir Z = 1 THEN PRINT "TENTE A SUA SCRTE" 

156 ir Z > 1 THEN PRINT "SORTE 3AH ERA, PENSE..." 

138 PRINT 

139 PAUSE 120 

140 PRINT "DICITE O ti E ..." 

144 IT Z >2 THEN PRINT AT 10,0 "P/ DESISTIR DIGITE 0" 

146 INPUT X 

148 1F Z = 10 THEN GOTO 780 

147 CLS 1^9 PRINT X 

152 ir X > 100 THEN GOTO 700 

153 ir X < 0 THEN GOTO 700 

154 IF X = 0 THEN GOTO e00 

160 1F X = R THEN GOTO 230 

170 IF X > R THEN GOTO 400 

160 LET 2 = 2 ♦ 1 

220 GOTO 500 

230 PRINT "CK, VC ACERTOU" 

250 PRINT "NA, ";Z;"Q TENTATIVA" 

260 PRINT 

270 PRINT "3OCA OUTRA VEZ ?S/N" 

280 INPUT PS 



THEN RUN 


285 CL5 
29 # ir PS = 

295 PRINT -tCGAL, TCHAU.• • •" 

3## STOP 

L00 PRIKT "VCCC chutou altc, m 

102 I r 4. THCK PRINT "POR CUE NAC DCS15TC 

4#5 PAUS! 700 

110 TLS 

415 COTC 1 70 

500 PRINT " VDCE CHUTOU 941X0," 

502 PR1UT "POR CUC MAC DESISTE ?" 

505 PAUSC 700 

510 CLS 

515 COTO 1 70 

100 P.RUT "VC MAC SA9C C QUE CH UM" 

110 PglWT "NUMERO ENTRE 1 C 100 ??'>" 

170 PRINT 
73# PAUSE 300 
7*0 COTO 170 

78# PRIKT"AGORA ACA0OU A BRINCADEIRA" 

795 PR1NT"CSTA FOI A ÍOE TENTATIVA" 

79# PRINT 

300 PRINT "0 NUMERC ERA ";R 
31# PR1NT "VOCE DEU AZAR" 

82# PRINT 
03* CCTC 26# 


7 " 
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ROLETA 



NUMERO SORTEADO 3 
ETC . 

Para um a quatro jogadores apostarem certa quantia em um número de 
*ero a nove, sendo o sorteio feito pelo micro em um display como o 

acima. 

O micro, o programa, calcula as apostas.indicando vencedores e 
perdedores, fornecendo o saldo, etc. ... 

Os valores perdioos sio acumulados a crédito do micro. 

Boa sorte! 


10 REM MICRON ELETRÓNICA 
20 DIM Ni (4 f 8) 

22 DJM S(4) 

24 DIK P(4) 

26 DIM C(4) 

28 DIM R(4) 

30 LET SM = 0 
70 CLS 

80 PRINT "CTOS. JOGADORES (1 A 4) ?• 
85 3NPUT N 

87 ir N»4 THEN GOTO 80 
90 FOR X = 1 TO N 
100 PRINT ”3004008 "; X 
110 PRINT '*NCME ?" 

120 1\FUT NS(X) 

130 PRINT "TLM ÜTCS . I M í 
132 INPUT S(X) 

136 CLS 

134 PRINT S(X) 

140 NEXT X 
142 CLS 
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31? rOR x * 1 TO N 

370 PRIKT ffS(X);" APOSTA 3TOS. S ?" ; 

325 1KPUT P(X) 

3)0 PRIKT P(X) 

36? PRIKT "LM Oue KD?M9"| 

365 JNPUT C(X) 

35? PRIKT C(X) 

355 KCXT X 

36? COTO 1000 

1x00 FOR X = 1 TO K 

6 6? ir C(x) S R THCK LCT S (X) = 3 (X) ♦ P(X) 

6B? ir C(X)<=>R THCK LCT S(X) « S(x) - P(x) 

69? ir C(X)<>R THCK LCT SK s SH ♦ P(X) 

695 ir C(X) - R THCK LCT SM = SH - P(x) 

52? PRIKT r:f<X) ;~ APOSTOL f.O H ;C(X); 

53? IT C(X) = R THEM PRINT - GANHOU" 

54? iT C(X)«-R THCK PRINT " PCROCU M 

565 IT S(X)«c? THCK PRIKT DC VC AO MICRO \ ABS (S(X» 

555 NCXT X 

556 PRIKT 

55B PRIKT -O MICRO 0AH GANHOU $ ";SH 
559 PRIKT 

56? PRIKT "P/ TROCA DC APCSTA OICITC A*' 

57? PRIKT "P/ OUTRO SORTC1C 5" 

58? PRIKT "P/ BALANÇO B" 

585 PRIKT "P/ OUTROS DOCAOORCS O" 

59? IKPUT l $ 

6?? CLS 

6J? !F Z$ = "A" THCK GOTO 31? 

62? IF Z$ ="5" THCK COTO 1??? 

63? IF ZS ="B" THCK COTO 6?? 

635 ir 21 ="0 H THCK COTO 3? 

66? COTO 558 

ei? FCR X = 1 TC N 

B2? PRIKT NS(X),«S”;S(X) 

B3? JEXT X 
B4? GOTO 556 
1??? CLS 
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1*1? ICT R = INT (RUO • 1?) 

1*6* PRIKT ■ ltf'l23Q 67B j" 

1*65 rOR T : 1 TO 41 ♦ (R • 2) 

1*7S 1 r T c 21 OR T * 41 OR T = 61 THCK PR1NT 
1*8* PRIKT ; 

1*9* PAUSE 2**/T 
11** NEXT T 
1125 PRIKT 

113* PRIWT "NOSORTEAOO ";R 
1132 PAUSE 2** 

1135 PRIKT 
114* COTO 4** 
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DADO 


O programa computa apostas em dinheiro, no dado, para um ou dois jogado 
res. O micro rola o dado apresentando.algumas faces ...e para na vence 
dora. 

2? Dl* f.S (2 # B) 

22 Dir S (2) 

24 Dir P (2) 

26 Dl? C (2) 

3? LCT S V. r ? 

7? CL5 

7? PRIKT "JQGC DC D40P - 

8? PR1 fCT *P/ 1 CU 2 2CCAD0RCS ?" 

85 I»:PL'T A* 

87 1 r f.' >2 THCK GCTO p? 

9? POR X S 1 TO N 
100 PRIKT "JOGADOR ";X 
110 PRIKT "KOKE ?■ 

i?? irrPuT k$ (x) 

13? PRIKT "TCM CTCS • $ 

13? IKPUT S (X) 

134 PRINT S (X) 

14? KC XT X 
142 PRIKT 

31? FCR X * 1 TO K 

37? PRIKT N? (X;;-APOSTA QTCS. S ?-; 

325 1KPUT P (X) 

33? PRIKT P (X) 

34? PRIKT "C* CUC NÜ* > " 

345 IHOUT C (X) 

35? PRIKT C (X) 

355 KC XT X 
358 G05UB 1??? 

4?? rOR X = 1 TO N 

46? IP C (X) = R T KC lí LCT S (X) = S(X) ♦ P (x) 

48? ir C (X)<^R THCK LCT S (X) = S(x) - O (X) 

49? ir C (X)<^R THCK LCT S* * SK ♦ P (X) 

495 ir C (x) = R THCK LCT SK = SK - P (x) 
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51# PRINT 

52# PRINT NS (x);"APCSTOU KC ";C (x): 

53# 1F C (X) = R T H£N CRI ITT " GANHOU" 

54# ir C (X)«*R THCK PRINT " PC RD EU" 

541 541 PRINT -AGORA TEM i " ;5 (x) 

54? ir C (X) > 6 THEN PRINT -DADO EH ATEH 6" 

545 1F S (X) < # T HEN PRINT ;"DEVE 40 MICRO 5 A05 (5 (*)) 

546 rC*T X 
557 PRINT 

55B P*R IN T "C K1CRC 0AH GANHOU E "|SK 
559 PRINT 

56# PRINT "TROCA DE APOSTAS DIGITE A" 

57# PRINT "OUTRC SORTEIC" # "S- 
58# PRINT "OUTROS 30G1DCRES" ,"J) M 
59# IWPUT 21 
6## CLS 

61# ir Z 5 =-A- THEN GOTO 31# 

62# IF Z3 r-S" THEN' CCTO 1### 

63# IF ZS tr-J" THEN GOTO 1# 

64# 

645 GOTO 550 
635 PRINT 
1### CLS 

1#3# rCR 9 = MC 7 
1 #32 LET R * # 

1#52 LET R = 1NT (RND • 5) ♦ 1 
1#54 G0SU5 (* * 1##) • 1### 

1#52 IF B c>7 THEN CLS 
1#94 NEXT B 
1#96 PRINT 

1#97 PRINT "ND SCRTCADC ";R 
l#9f PAUSE 12# 

1#99 GCTC 4## 

11## PRINT AT 3,3;' ■" 

111# RETUPN 
1#7# PAUSE 9# 

12## PR1 MT AT 1,5;*B";AT 
121# RE TURN 
13## PRINT 
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13*? PRIKT ;T 3 f 3;-l-;iT 
13?? RtTLW. 

H?? PftlfcT 

lai? PWRT AT 

Ia2? RLTLfiK 

15?? PRlfcT "■-••H" 

1??? PR1M 

153? MUK“ "--B.. - 

154? PR1KT 

15?0í RH» 7 

157? Rt7UR* 

16?? PHHcT 
161? PRir.T 
162? PR1WT "■ 

163? PRlfcT 
164? PR1NT 
165? R£TURf* 
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TABELAS _ 

0 programa a seguir apresenta uma tabela «la tabuada de rou:tiplicar 
solicitada, de 1 a 10. Para tabuadas de somar, troque a linha 40 


Ü0 PRIM A;- ♦ " ;9;- = ";A-B 


10 

REK K1CR0I 

! ELETROhl CA 

70 

TDR A = 1 

TC 10 

3? 

FOR B = 1 

TO 10 

4* 

PR1RT A;- 

X * ;B = " 

5* 

liCXT 8 


60 

PRIKT 


70 

PR1WT -DIGITE ItTfcf L I fJ 

B0 

1WPUT Xf 


90 

CLS 


100 

*CXT A 



Opção: 

Retire as linhas 23 e IN e acrescente: 

15 PRIKT "GÜ4L $ TABUADA DE 1 A 10 " 
20 llfPUT A 

100 RUN 
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TABUADA 


O prcgrana 'oh il t 10 questão'-» aleatórias dc uma operação de tabjada. 
Oferece outra chance em caso de erro ou a resposta cm caso ae dcsis 
tência. Conta o número de erros e acertos. 

5 =LI' PICRC?» EUTR0K1CA 
10 Pfiir-T AI i?,i$ 1‘XILZ^I^' 

1? c 11 Kl AT 18,£;"SEt KOKE *>" 

>3 i: ruT ?:S 

15 Cl £ 

16 ÇR1I;T "0ü£ TABUADA VCCE C*UER ?-;K3 

17 I Rlf.T 

15 PR1\*T "HULT I Pll CAR" , "Dl GITE 1" 

19 P fcIfT "Dl V1D1R", "DIGIU 2" 

20 PRIKl R","DlGITL 3” 

21 FRII/T "SUBTRAIR","DlGITE 4" 

22 LH C r fí 

24 LET V = 0 

25 PRlf.T 

26 PRlf.T 

2E PRlf.T "1? CUESTOES P/ OPE RACAD" 

3? ir.FUT 2 

31 L£T A = 1KT (Rf.D • 10) 4 1 

32 LET E * INT (R»^D • 10) ♦ 1 

33 CLS 

34 LET C = C ♦ 1 

39 ir Z c 1 THE* GOTO 55 

36 ir Z = 2 ?H£A! GOTO 90 

37 ir Z = 3 TH EU COTO 150 

38 ir Z z 4 THEf.* GOTO 20$ 

5E P RIKT A ; " X" ; 3; ■ e « - 
6/ 1 fCPUT X 

65 PRlf.T X 

69 IET R = A « 8 

10 If ,x * \ % s THCr: GOTO 500 

80 GCTC 1x00 

92 LET r * ; * e 
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94 PRINT Y;-/-jA;“ « •> 

96 INPUT X 

98 PRINT X 

99 LET R « Y/A 

10 jr x • y/a then coto 50 

11 * COTO *0 

10 PRINT A!*♦• |B|* ■ •; 

162 INPUT X 

164 PRINT X 

165 LET R - A 4 8 

166 ir X « A 4 B THCN COTO 50 
10 COTO 00 

210 LET Y - A ♦ 8 

212 PRINT Y;*-"jA |* » -| 

214 INPUT X 

216 PRINT X 

217 LET R * Y - A 

218 ir X ■ Y-A THEN COTO 50 
00 PRINT 

41* PRINT "NAO, -;Nl 
412 PRINT "VOCE ERROU." 

414 PRINT 

415 IT C > ■ 10 THEN COTO 700 

416 PRINT "TENTA OUTRA VEZ? S/N- 
42* INPUT P| 

422 TF pt ■ -S- THEN COTO 33 

423 PRINT 

424 PRINT -A RESPOSTA ERA -;R 

425 PAUSE 15* 

426 CLS 

428 IT PI « -N- THEN COTO 32 
43* COTO 416 
5*5 PRINT 

51* PRINT -HUITO BEH, -|Nl 

52* PRINT -VOCE ACERTOU." 

525 LET N « N 4 1 
* 

53* PRINT 

55* 1F C». 10 THEN COTO 10 
555 PAUSE 12* 
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556 CLS 
560 COTO 32 

700 PftlNT "EU riZ 10 PE RCUt.'TA r " 

710 PRJNT "E 7CCE ACERTOU ";K 
720 PRINT 

730 PR1KT ".?UC R OUTRA OPC RAÇAO ? S/fT 
740 IPUT PS 

750 IF PS = "S" THEN GOTC 15 

760 PRJfJT "BY 8V-* 

780 1WPUT US 
790 CLS 
600 RUM 
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TUTOR 


10 REK MICRON ELETRÓNICA 
2? PRINT • TTUTCR - HLLTIPLliÃfr 
22 PR1HT 
24 PRINT 
26 PRINT 

3? PRINT -QUAL TA9UADA VGCC OESE3A ?" 

35 PRINT i "DE 1 A 1?" 

U0 1NPUT N 
5? CL5 

6? ir N<1 CR N>*1? THEN CCTO 30 
65 LET C = 1 
70 CCSUP 5?? 

100 CL5 

1JT> PRINT "RESPONDA ATCH ACERTAR" 

10B PRINT 

11? EOR X = 1 TC 1? 

12? PRINT N;" X ";X;" = 

13? INPUT Z 

135 1r 2 = (N • X) THEN PRINT 2 

15? IT Z«-(K * X) THEN LET C = C ♦ 1 

160 I r Z<»(* • X) THEN CCTC 13? 

17? «EXT X 

175 PRINT 

176 ir C = 1 THEN PRINT "PARA9ENS, UOCE ACERTOU TODAS." 

13? ÍF C >1 THEN PRINT "VOCE COMETPJ " ;CERROS" 

165 PR P/T 
19? GOTC 3? 

5?? PRINT 

5?2 PRINT ,,,,,, 

5?6 PRINT "ANTES CUL EL LHE PERGUNTE k" 

51? PRINT "TABUADA DE MULTIPLICAR DE 
52? PRINT "i/LCE GUER ESTUDA-LA ?" 5/N" 

53? ir.PUT P» 

55? 1F Pi» = "N" THEN COTO 1?? 

56? IT PS ="S" THEN CÜTU 6?? 

57? CCTCl 53? 
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é00 CL5 

6^5 PRi N‘7 “ÜL4NDL EST3VCR PRCfcTU LMCITC P" 

6jfc PRUT 
ò?9 PR1NT 

61^ FOR X = 1 TC 1? 

6^ PR! KT N; ,! X " ;X;" = -;(n * X) 

S3jf rccxT x 

64? UPUT Ps 

65»? jr PS =-P- THlH CU TC, Iff 
66ff CL TL 

Para transformar o programa rm tutor de somar, .Itere as linha** 
29 , 129, 135. 159. 519. 629 . 
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I ALFANUMÉRICO 


1? REK KXCRCN ELCTROUC* 

13 RAf!D 

2/ PR1M AT 6-g:' CT^^^U v tHlL^^ 

23 PRIf.1 

3? PRXkT "AOIWif.K LETRAS bü ?OlKLROS” 

4? PRIkT "P/ LETAA5 ü-Cl TC L* 

5? PR1NT "P/ EtKcRlS DIGiTE R" 
fc? 1NPUT P> 

63 LEI C = 1 
7? CLS 

8? ir Pi =-K" TPEN GC*TÜ i?? 
fc3 ir Pt =-L* THCW CCTG 3?? 

93 GCTC 3? 

1?? 5WJLÜ 

2(T5 LET X r 1 ET (RED ♦ 6) - 1 
11? PR1KT "PEESE1 Ur* WUKCRC" 

112 PRlfíT "ENTRE 1 c 9“ 

12? PR1I.T 

121 PR1KT "E ELE En 

122 1F X = 2 GR Xr4 QR X=6 GR X=E THEf. PR1Í.T "PAR" 

124 IF X<>? ÜR Xo4 CR X <>6 CR X <> 8 THCN PR1KT -I^i-AR" 
13? IF X = 3 UR X = 7 TKEK PRJ?.7 "C ELE CK nBPRIKC" 

133 PRlíCT 

14? PRINT "TENTE UH 
15? 3NPUT l 
152 CLS 

16? ir Z » X THlN PR1KT -JCCE ACERTCü" 

165 ir 2 * X CCTO 2?? 

17? ir Z=? CR Z = 4 OR 2r6 CR Z*6 THEH PRIlfT "YCCC CSCCLHEU 
PAR* 

172 IF Z<>2 CR Z<*4 Cn 2<>6 CR Z<>3 TKEN PRIAT "VCCE C3 
CGLHEU XF.PAR* 

175 ir ZoX THEN PRINT "VCCC ERROU" 

18? ir Z«1 THCR LET C = C 4 1 
185 PAUSE 2?? 
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166 PRIKT "TEfsTE CUTRA WCZ..." 

19* COTC 11* 

21* CL5 

22* PRIKT "CU PENSEI ";X 

225 PRIKT "E VOCE ACERTOU NA ";C;"D TENTATIVA" 
23* IF C = 1 THEN PRIKT "PA RA BENS, FOI KA lH" 

2/é/ PRIKT 
29/ PAUSE 20 
26/ COTO 3/ 

3// LET C = * 

31/ LET L *38 4 I*T(fVNO • 26) 

32/ PRIKT AT 6 t *;"EU PENSEI UKA LETRA ENTRE A E Z" 
33/ PRIKT -ADIVINtt A LETRA ..." 

3*/ IKPUT Ll 
39/ CLS 

36* ir COOE ( LS) =*L THEK COTO 9// 

37* LET C * C ♦ 1 
3B* PRIKT 

39* PRIKT-WAO, VOCE ERROU" 

4** PRIKT 

41* PRIKT "TEKTE HAIS PARA O 

42* IF COOE (L9 ^ L THEK PRINT "FIM" 

43* IF COOE (LS) > L THEK PRIKT "INICIO" 

44* PRIKT "DO ALTABETO" 

45* COTO 33* 

5** PRIKT "VOCE ACERTOU KA " ;C; "D TENTATI VA" 

51* PRIKT "EU PENSEI "; Ll 
52* PRIKT 
53* COTO 3* 
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ORDENA DOR ALFABÉTICO 


Coloca f orcem alfabética nomes com vinte letras, ou mais, se alte 
rado o valor vir te nas lirhas 03 e 95. 

A quantidade má* ima de comes a serem ordenaaos depende da memória 
instalada en- seu microcomputador. 


10 rek ncRor: eietrgmca 

20 PRIM AT 6 f 6;"CRDENAD0R ALFABÉTICO" 

2tí PRINT VI9999 

50 PRIM "DIGITE NEW UNE" 

55 UPUT US 

70 PRIM "MOS. fJDPES ?" 

B0 1KPUT K 
B5 CL5 

90 DTK Al (N,?0) 

95 C1K 3? (20) 

100 FGR X = 1 TC K 

11? IF X = 1 THEf« PRIM "HAX . 20 lETRAS/KOKS" 

115 PRIM "EMRE C/ C " 5X;"QttDKE ?" 

119 ir.TUT rtS(x) 

120 PRIM AS(X) 

125 IF x/l0 = INT (X/l0)THEf. CLS 
140 next X 
150 CLS 

160 PRIM "J.GKES FRDEKfiSOS" 

165 IF í. 5*10 T HE I-. FR1KT "PRCX5 • I.ÍM'ES DICIU COM *\E.. UKE" 
200FCR X = 1 TD {*.-( 

204 rOR Y = X ♦ 1 TO K 

210 ir AS(X)<*3(Y) THEi: GGTÜ 250 

214 LC1 c: = AS(X) 

220 IET At(X) = Ai(Y) 

224 LtT AC( Y) = Ci 
250 ?-:ext v 
260 KEXT X 
270 PRIM 

2E0 TCR x = 1 TC U 
290 PRIIT A:Cx) 

300 f .EXT X 
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31/ phiwt 

32{T P«KT -CUTRh VtZ-.-DICITr U LM m 
33/ lílPLT PS 
34jf CL3 
35f? aUfl 
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OfíOENADOfí NUMÉRICO 


0 Programa a seguir coloca em ordem crescente ou decrescente uma 
quantidade ’*N" de valores numéricos. Pode-se numerar as entradas e 
liminando as repetidas. Foi dimensionado para 1®« valores. 

2 RE* MICRON ELETRÔNICA 
4 LET S = - 7 
6 DlM A (100) 

10 LET 1-0 
20 LET Y = 1 

10 PRINT -ENTRE COM 0 " ;2eVO UALOR 
4* 1NPUT A(Y) 

42 FOR A * 1 TO Z ♦ 1 

44 1 r A{Y) = A(A) AND Ao-Y THEN COTO 60 
46 NCXT A 

b0 I F A(Y) = S THEN COTO 95 
25 PRINT dIgITE -7 PARA LISTAGEM- 

55 LET Z * Z 4 1 

58 PR1NT A(Y) 

60 LET Y b Y 4 1 

60 1F Z/15 * 1NT (Z/15) THEN CLS 

90 GOTO 3? 

95 CLS 

100 FOR X * 1 TO Z 

lljí FOR N » X ♦ 1 TO Z 

13pf ir A(X)>A(N) THEN COTO 17* 

14* LET B * A(X) 

15* LET A(X) = A(N) 

160 LET A(K) * B 

17* NEXT N 

1B0 NEXT X 

190 F CR N « 1 TO Z 

200 PR1NT N,A(Z - Nel ) 

210 NEXT N 

O programe é um ordenador numérico crescente. Para torná-lo decrea 
cente mude a linha 2®# para PRINT N, A(N| 

As linhas 42 a 46 impedem a entrada de quaisquer valores iguais a 
algum anteriormente entrado. Podem ser removidas do programa. 
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COMUM 


O progrtM a soguir calcula quslqusr um dos fatorss, dssd* que outros 
tros soja* conHscidos. 


. capital Inicial |$) 
. capital futuro ($) 
. taxa ó* juros <%) 
• Juros ($) 
- nt ds pare«las (N) 


10 REM H1CRDN ELETRÓNICA 
12 LCT Xl «-CALCULADO* 

18 PRINT AT S.írCALCüLO OUALQUCR DOS FATORES" 
20 PRINT -SE 3 TORCK CONHECIOOS" 

22 PRINT 

24 PRINT "P/-,"0IC1TE- 
26 PRINT -CAPITAL FUTURO",-1" 

20 PRINT -CAPITAL INICIAL-,"2" 

50 PRINT "DUROS*,"3" 

32 PRINT -TAXA DC DUROS",-*- 
34 PRINT -fCDE PARCELAS","5" 

36 INPUT P 

38 ir P< 1 OR P >5 THEN COTO 36 

4jr cls 

42 COSUB P • 100 
100 COSUB 560 
1 10 COSUB 57* 

1 20 ccsue 58* 

150 LCT CF * Cl s((l ♦ T D ) • -T ) 

1*0 PRINT Xl 

150 PR1NY -CAPITAL FUTURO « - |CF 

160 COTO 600 

700 COSUB 550 

210 COSUB 570 

220 COSUB 58* 

250 LET Cl « Cr /((1 ♦ TD) ## T) 

2*0 PP1NT Xl 

25* PRINT -CAPITAL INICIAL a"|tl 
260 COTO 600 
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300 COS UB 560 
310 CQSUB 570 
320 CCSUB 560 

590 PRINT " VALOR POR PARCEL/J ="; 

5B2 INPUT T 
564 RETURN 

330 LET O = Cl • ((1 *T3 )**T -1) 

340 PRINT XS 

350 PRINT "DUROS =";3 

360 GOTO 600 

400 GD5U9 560 

410 fOSUB 580 

420 GOSUB 590 

430 LET T3 = ( ( (CF/CI )-(l/T) )-l)*100 
440 PRINT X| 

450 PRINT "TAXA DE JUROS =-;T3;"O/O' 

460 GOTO 600 

500 GOSUB 550 

510 GOSUB 560 

520 C0SU9 570 

530 LET T = (LR trtl))/(LR (1 *(T3)) 
532 PRINT Xf 

534 PRINT "NE DE PARCELAS =";T 
540 COTO 600 

550 PRINT "CAPITAL FUTURO ="; 

552 INPUT CF 
554 RETURN 

560 PRINT "CAPITAL INICIAL ="; 

562 INPUT Cl 
564 RETURN 

570 PRINT "TAXA DE 3UROS ="; 

572 INPUT T3 

573 LET T3 = TJ/100 

574 RETURN 

580 PRINT "NE DE PARCELAS ="; 

592 INPUT VP 

593 LET CF = IIP • T 

594 PRINT VP 

595 RETURN 
600 PRINT 
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602 PRINT 

6#4 PRIM "OUTRO CALCULO ? S 0 " 
606 INPUT PS 
610 CLS 
612 RUN 
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Ob «"H w rtd i l u T» CDP npr«»«mmtw[jãr. Ob « Tiú 

'MBTTD Of >fmtnnOB ■» <QBtÉB A/*l«rr ihktit >- 


30 WfOTDl' BIHTWIDMKW 
112 HffTT 2 = # 

a* tior w = a 

afc IUFTT ÍP = 999 « • 9 
1» tUDT c = j)f 

2QÍ ÍTOPVTT (WT tfcjft^nCTlíEUlUD «» ittftai* Walíiwimo- 
m ípraiwir «tt ^^'"roitvinii ® -s^-WinxuHT 
H3 vmm ■nTOtnnTTi JLn fnn*r 
20» HWUT * 

25 mr x * #.a TTHfijf! mis 
a* nr * = jjLa tth©* cnunu m 
27 ? a?r * » £ ™dk ihett x = * 

2B IfT «-« «P TTOC* llíETT IP * * 

2# (EUS 

32 tianr z = 2 •* * 

3* HJETT m * 2 d * 

3* IliETT * = V * E 

3B TOTWT 41T 2jfí^tCEI5A nmWIl. 

4# vPRUfTT 
42 ETITTO 22 
ttft PHlítíIT 

4fc PRltíT -íDUTRE (DAUDIUIE TOíEITnE NE* lUWC*" 

4B atJPUT lUS 
5# EIS 
32 mw 
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0 programa a seguir calcula a depreciação pelo método da lirha reta. 
Com o uso da equação: 

VF ♦ (0*T)« VI D * (VI-VF)/ T 

onde VF - Valor final, VI= Valor inicial, D * Depreciação, 

T = Períodos de tempo . 


10 RCM PICRQK ELETRÔNICA 
15 PZK 

?0 PRir-T "biPHECiAEP.Ü - LÍfíHA-EU.3" 

22 PRÍKT 

?í> PRiKT "oicm- 

26 PRIM "VALO* IMCIAL " ; 

28 If.PUT V 
30 PR1KT V 

3? PRIM "VALOR RE5IDUAL 
34 IKPUT S 
36 PRIKT S 

38 PRIM "PERÍODOS A DEPRECIAR" 

4:0 INPUT T 
42 CLS 

44 PRIM "IDADE-DEPREC." f " VALOR K'0 PERÍODO 

46 LCT X = 0 

46 LET P = X 

50 LET D = X 

54 PRIM X;- - ";D,V 

56 LET P r (V - Si / T 

56 FOR X = I TO T 

60 lET 0 = D 4 P 

62 LET V = V - P 

64 PRIM X;- - ";D f V 

66 NEXT X 

68 PRIM 

70 PRIKT "OUTRO CALCULO ? - 
7? PRIM -DIGITE NEW L1NE" 

74 IKPUT US 
76 CLS 
78 RUM 
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DEPRECIAÇÃO 


O programa calcula a depreciação pelo mctooo da percentagem constan 
te. Ou melnor, deprecia o valor ou capital inicial até o valor reai 
dual, com o mesmo percentual para os valores remanescentes a cada 
periodo. 


10 RE>* KICRON ELETRÔNICA 

20 PRINT -DEPRECI AÇÃO -H/H C0N5TANTE* 

30 PRINT 

LÍ PRINT "DIGITE" 

45 PRINT "VALOR INICIAL *5 
50 INPUT V 
55 PRINT V 

60 PRIfJT -VALOR RESIDUAL •; 

65 INPUT S 

66 PRINT S 

7Í PRINT "PERÍODOS A DEPRECI AR" 

75 INPUT T 
tií CLS 

82 LET X = S / V 

64 LET Y = 0.001 
66 LET Z = 1 - Y 
80 LET K = Z T 
90 IT X a K THEN COTO 96 
52 LCT 7 = Z ♦ í.ífl 
94 GOTO 86 

96 PRINT -TAXA DE DEPREC1ACAO "|V 
100 LET X = í 

102 LET D = X 
104 LET P = V 

106 PRINT " IDiDE-DEPRCC."," VALOR NC PERIQDO" 

107 PRINT 

108 PRINT X;- - ";D,V 
110 FOR 3 - 1 TO T 

112 LET A = V •C(1 - Y) •• 3) 

114 LET TD = P - A 
116 LET D = D ♦ TD 
116 LET P = A 


52 



PROGRESSÃO ARITMÉTICA 


* partir do 1 * termo, diferença comum e n» de termos, este programa 
oferece a progressão aritmética. 

10 REN MICRON ELCTRQNICA 

20 PRINT "PRCCRCSSAC ARITMÉTICA" 

21 LET T = 0 

22 PRifíT 

30 PRINT "lHTERMD ?; 

40 INPUT A 
50 PRINT A 

60 PRINT "DIFERENÇA COMUM ?"; 

70 INPUT D 
80 PRINT D 

90 PRINT "NDDE TERMOS ?"; 

100 INPUT N 
110 CLS 
120 PRINT 

122 PRINT "PRCCRESSAO ARITMÉTICA" 

130 PRINT "NDDO TERMO", "VALOR" 

140 TOR K = 0 TO N-l 
150 LET Y = X ♦ 1 
160 LET W = A ♦ (X • D) 

170 LET T sT ♦ W 
180 PRINT Y,W 
190 NEXT X 
200 PRINT 

210 PRINT "A SOMA EH ";T 
215 PRINT 

220 PRINT "Dl CITE NEW UNE" 

230 INPUT PS 
240 CLS 
250 RUM 
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FIBONACCI 


10 REM K1CR0N ELETRÔNICA 

20 PRINT AT 6 t fí; " TA8EL4 PARA KQS. DE F 1 BONACC1 ** 
22 PRINT 
24 PRINT 

26 PRINT "ENTRE lClTERHO 

28 INPUT X 

29 PRINT X 

30 PRIKT -ENTRE 2ElTt riMO 

32 INPUT Y 

33 PRINT Y 

34 PRINT "ENTRE kHDE TERNOS t m 

36 INPUT N 

38 CLS 

A0 PRINT AT 0,8 ;"TABELA" 

42 PRINT "MODO TERHQ- f -NE) FIBONACCI" 

44 LET C - 1 
46 PRINT C , X 

48 LET C = 2 

50 PRINT C , Y 

52 LET C = C ♦ 1 

54 LET W = X ♦ Y 

56 PRINT C , W 
50 LET X r Y 

60 LET Y a W 

62 IF C > * N TtCN COTO 68 
64 COTG 52 
66 PRINT 

68 PRINT "RECOMECA ? DIGITE NEV/ LI NE" 

70 INPUT PI 
72 CLS 
74 RUN 

Modifique o formato de impressão no video.usando: 

45 SCROLL 

49 SCROLL 

55 SCROLL 

61 PAUSE 3ff 
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COORDENADAS 


Conversão de coordenada» de polar para retangular. 


10 REK MICRON ELETRÓNICA 

12 PRJNT "CONVERSÃO DE COORDENADAS" 

13 PRINT 

14 PRINT "DE POLAR P/ RETANGULAR* 

16 PRINT 

1B PRINT -ENTRE COM- 
20 PRINT -ANGULO EM CR4US 
22 INPUT V 

24 PRINT k* 

25 PRINT 

26 PRINT -AMPLITUDE 
28 INPUT A 

50 PRINT A 

32 LET y = (W • PI) / 18* 

34 LET B = A • COS(w) 

36 LET C = A ♦ SlfS(v) 

38 PRINT 
4* PRINT 

42 PRINT -COORDENADA RETANCULAR- 
44 PRINT -X = = -;C 

46 PRINT 

48 PRINT -CONTINUA ?* ff "DIGITE ENTER" 
50 INPUT P$ 

52 CLS 
54 RUN 


M 



;TD r P 


l?f PR!NT 2; m - ■ 

122 KEXT J 
124 PRINT 
126 PRINT "OUTRC CALCULC ?• 
130T PRINT "DIGITE NEW tlNC" 
132 1NPUT U$ 

134 CLS 
136 RUN 
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I COORDENADAS 


10 REM MICRON ELETRÔNICA 

12 PRINT -CCNVERSAO OE COOROENADAS" 

13 PRINT 

U PRINT -RETANGULAR P/ POLAR" 

16 PRINT 

20 PRINT "DIGITE X =•; 

22 INPUT X 
2A PRINT X 

26 PRINT "DIGITE Y ="; 

28 INPUT Y 

30 PRINT Y 

32 IF X ♦ Y = 0 THEN COTO 46 

31 PRINT 

34 I F X = 0 THEN GOTO 52 
36 lE Y = 0 THEN COTO 66 
38 LET W = ATN (Y / X) 

40 LET W = (W ♦ 180) / PI 

42 LET A = SCR ((X •• 2) ♦ (Y 2)) 

44 GOTO 80 

46 LET W r 0 

48 LCT A = 0 

50 GOTO 80 

52 1F Y»0 THEN COTO 60 
54 LET W = - 90 
56 LET A = A8S(Y) 

5e GCTC 80 
60 LET W = 90 
62 LET A = Y 
64 GCTÜ 80 

66 IE X»0 THEN GOTO 74 
68 LET W = 180 
70 LET A = A8S (X) 

72 COTO 80 
74 LET V = 0 
76 LET A = X 
78 PRINT 
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°l PRINT "CODROCNADA POLAR* 

82 PR1NT -ANGULO Ch GRAUS =*;W 
84 PR1NT "AMPLITUOe = *;A 

86 PRINT 
81 PRINT 

88 PRINT -OUTRO CALCULO ? S/«" 
9fT IPUT PS 

92 1F P$<=-S“ THEN COTO 9fT 
94 CLS 
96 RUN 
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BW RITMO 



10 RCH HICRON ELETRÔNICA 

20 PRINT AT 18,^;-BI0R1THD ELETRÔNICO" 

38 rOR N * 0 TO 63 

á0 PLOT N f 22 ♦ 2 *»SIN(n/32 • PI) 

62 NEXT N 

66 PRINT AT ?*,*;-P/ COHECAR DICITE *■ 

66 INPUT A$ 

67 CLS 

68 ir Al *<»•*• THCN COTO B00 
50 PRINT -OIA DE NASCIHENTO 7- 
52 INPUT Dl 

56 PRINT "HES ?• 

58 INPUT Hl 
62 PRINT *ANO ?• 

66 INPUT Al 

65 REH 

66 CLS 

70 PRINT -ANO DESEJADO ?• 

72 INPUT A2 
76 PRINT «HES ?• 

76 INPUT H2 
70 PRINT "DIA r* 

8* INPUT D2 

^ LET F . (Al -(Hlc3)) -(A2 -(H2«c3)) 

100 LET A - (F • >65) ♦ F/6 

110 LET N • (3*6 • ((Hl 4 1 -(MI c ») -{ M 2 ♦ l) - 
(H2c»))/1* 

120 LET D - Dl - D2 
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125 CLS 

14* LET U = AB5 (A * K ♦ D) 

15* COS UB ?**. 

16* COSUB 5** 

17* COSUB 3** 

18* COSUB 5** 

19* COSUB 4** 

195 COSUB 5** 

197 COTO 55* 

2** PRINT AT 6,*;-SEU 8I0R1THC, “ 

2*2 PRINT -DIA -;D2;'- NO HES *;K2 
2*4 PRINT 

2*9 PRINT -CICLO FÍSICO •; 

21* LET C = (w/23) -{INT (w/23)) 

22* RETURN 

3** PRINT 

3*5 PRINT -CICLO EHOCIONAL -; 

31* LET C-* (W/28) -(INT (w/28)) 

32* RETURN 
4** PRINT 

4*5 PRINT -CICLO INTELECTUAL •; 

41* LET C x (W/33) -(INT (w/33)) 

42* RETURN 

5** irC>-.55 ANO C*<.95 THEN PRINT "EH BAIXA* 
51* 1FX*<.A5 ANO C>-.*5 THE# PRINT «EH ALTA- 
515 IF C»*.45 ANO C*<* .55 THEN PRINT -CRITICO- 
52* 1F C-«=.*5 OR C>- = .95 THEN PRINT -CRITICO* • 
526 RETURN 
6** PRINT 
6*5 PRINT 

6*8 PRINT -PROX. DIA DICITE P* 

61* PRINT NWTRA DATA DICITE D* 

625 1NPUT PS 
63* CLS 


00 


632 1 r PS ="P" 4HD D2C31 THCN LfT &2 =d? 
634 ir PS ="P" THEf CCTO 120 
636 IF PS ="D" THCN GOTC 70 
640 RUK 

600 PRIKT "CU DISSE 0 m 
610 P4USC 300 
820 CL5 


ARQUIVOS 


°* programas a *«guir sio enem pios prático* d* diferente* necessida 
de* ou possibilidades de se arquivar, ler e alterar dado* na língua 
ge» Basic utilizada pelos micros TK 82 C, NE Z8000. 1K 05 e CP 20o7 
Todos coa a lógica Sinclair. 


A. Arquivo para cinco variáveis numéricas. 

B. Arquivo para N variáveis numérica* coa listagea individual. 

C. Arquivo anterior coa listagem individual ou coletiva. 

0. Arquivo para cinco variáveis alfanuaéricas coa dez caracteres ca 
da. 

E. Arquivo para N variáveis alfanuaéricas relacionadas a uma nvaéri 
ca. 

F. Arquivo anterior coa duas variáveis numéricas relacionadas a uaa 
alfanumérica. 

0. Arquivos-santeriores (E,F) coa procura por noae (variável alfanu 
aérica) , nuaér© de entrada ou código. Presta-se a uma agenda te 
lefSnica ou a um cont-ole de contas a pagar/ receber. 


Observaçio: 

Variáveis alfanuméricas também sio conhecidas o 
teres ou StrigS. 


cadelas de carac 





ARQUIVO PARA í> VARIÁVEIS NUMÉRICAS 

5 D IK A(5) 

W LCT Z s 1 

15 FR1KT -ar:uivo r/ 5 n05.- 
7( PRINT 

>? PR1RT -3UAL EH C V 5*0 »i B ?*; 
A? 1NPUT A(Z) 

5? PRIKT A(2) 
bfl LET 2 b 2 « 1 

ir 2r< 5 THCK GOTO 3* 

e0 cls 

9J? PR]MT -VALORES ARQUIVADOS, OK- 


RUN e Ne* Line 

0 programa perguntará pelo 1 * N*, 2* N*, etc. ... até o 3* N«. 

Para obter o» valore» arquivado» digite »em nf de linha: 

PRINT A(l> e Ne* line 
PRXNT A(2) etc. ... 

NOTA : 

A ou 6 ou C »ic exemplo» de variável» que, come tal , pode* assumir 
qualquer valor (numérico), ma» apena» *m valor por variável, 
vez. 

AIZ) ou B(Z) ou CIX) »áo exemplo» d» variável» »ub»crita» ou indexa 
da» e comp$em-sc de tanta» variável».quanto o número de subscrito» 
IZ) ou IX) ou (etc.) que »eguem e« ordem cre»cente a partir de l.ern 
número» inteiro». 

O »omador/contador da linha M fornece o número do subscrito da va 
riável que.certamente,é o número de entrada em ordem crescente. 
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ARQUIVO PARA N VARIÁVEIS NLMÉRIOS 
COM LISTAGEM INDIVIDUAL 

10 LET Z * 1 

2? PRINT -AR2UIVC DC nBS.- 
22 PRINT -P/ OTOS. Ntt?- 
24 1 NPUT N' 

26 CIS 
2B DIK A(n) 

30 PRINT "CUAL EH 0 * s2 5*0 líD?" 5 
40 INPUT A (2) 

50 PRINT A(Z) 

60 LET Z r 2 ♦ 1 
70 ir Z = <N THCN COTO 30 
80 IF Z/10 r INT(Z/10)THEN CIS 
90 CLS 

95 PRINT -VALORES ARQUIVADOS* 

100 PRINT -0ESE2A CUAL VALOR ? DE 1 A -;N 
110 INPUT Z 

115 ir Z^N OR Z •< 1 THCN COTO 110 
120 CLS 

130 PRINT 4(Z) 

140 PRINT 
150 COTO 95 
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AROUIVO PARA N VARIÁVEIS NlXéRICAS 
COM LISTAGEM INDIVIDUAL OU COLETIVA 

110 PRINT "P/ L1STACCM CO*PLCTA DICITC 0" 
120 PRINT "P/ OUTRO ARQUIVO DICITC -1" 

130 IMPUT Z 

140 ir Z<-1 OR Z >-N THCN CCTO 130 
150 CLS 

160 ir 7 * -1 THCN GOTO 250 
170 ir Z ■ 0 THCN COTO 200 
100 PRINT "NO DC CNTRADA *-;Z 
190 PRINT "VALOR «";A(2) 

192 PRINT 

196 COTO 100 

200 FOR Z « 1 TO N 

210 PRINT -ENTRADA r-;Z,-VALCR *-;A(Z) 

220 NCXT Z 
230 PRINT 
240 CCTO 100 
250 CLS 
260 RUN 


Caso voce fsçs o arquivo para mais de vinte itens , certa/rente • li* 
tagem coletiva nlo caberá de só vez no vídeo, aparecendo o còdi 
go de refrortageu: 

5/ nt da linha, digite: 

CONT e Ne» Line 
ou acrescente ao progra*a: 

215 ir (2/15) = INT (Z/15) THCN CCSU9 270 
270 PRINT 

275 PRINT -P/ CONTINUAR DICITC NEW UNE" 

280 INPUT US 
285 CLS 
290 RE TURN 



ARQUIVO PARA 5 VARIÁVEIS ALFANUMÉRICAS 
COM 10 CARACTERES CADA 

5 Dir A3(5 t 10) 

10 LET Z » 1 

15 PRIKT "ARQUIVO P/ 5 KDKCS" 

20 PRIKT 

30 PRIKT "0U4L EH 0 NOME ?" 

40 JKPUT AS(Z) 

50 PRIKT A$(Z) 

60 LET Z = 2 ♦ 1 

70 ir Z =<5 THEK CCTC 30 

80 CL5 

90 PRIKT "0K f NOMES ARQUIVADOS* 


Para obter os nomes arquivados digite: 

PRIKT A£(I) e Ne* Une 
PRIKT A>(2) etc... 




ARQUIVO PARA N VARIÁVE 1S ALF*0*AICAS E ^AA^RICAS 


O programe i seguir arquiva N nomea da N lrtraa, seguidos da um có 
digo numérico qualquer, correspondente ou relacionado a eate nome. 
Por eiemplo: idade ou ft.G. 

A quantidade máxima de nomes a serem arquivados depende da capaci 
dade da RAM instalada em sou microcomputador. 


10 PRINT -ARQUIVO- 
20 PRINT "QUANTOS NCNCS ?-; 
y0 INPUT N 
4* PR1M N 

50 PRINT "DC CTAS• LETRAS ?• 

60 INPUT L 

70 01N AS (N.Ls 1) 

80 01H A(N) 

90 CLS 

100 FOR X ■ 1 TO N 

120 PRINT "QUAL 0 "|Xj"E NOWC ?• 

1*0 INPUT Al(X) 

14* PRINT "QUAL 0 CflOICO ?• 

15* INPITA(X) 

160 CLS 
170 NCXT X 

10* PRINT "0K f NONCS C COOICOS ARQUIVADOS" 


Para obter os nomes e códigos digite: 

PRINT A$(l). A(l) • H** 

P8im AS(2) , A(2) ptc... 
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AROUIVO PARA N VARIÁVEIS ALFANIMÉRICAS E NUMÉRICAS 
COM 2 VARIÁVEIS NlA*ÉRICAS RELACIONADAS COM 1 ALI A 

Para •'•quivar n no»es de N letras seguidos de dois. códigos runén 
co» por nome, use o programa anterior acrescido oe: 


62 DJM B(K) 

152 PR1 til A (X ) 

15* P«If.'T -CUU 0 OUTRO CÓ01CC DcSTL fvCNL ? n 

156 IHPüT 3(X) 


Para obter os nomes e códigos.use o processo já citado; digite: 
PRINT A)(1)„Al1),e(1) 

O formato de saida terá nome na primeira linha e os códigos nume 
ricos na segunda linha, como : 

INÁCIO COSTA 

i8*o igao 
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ARQUIVO PARA N VARlAVEIS ALFANUMÉRICAS E NUMÉRICAS COM 
2 VARIA VE IS NUMÉRICAS RELACIONADAS COM 1 ALFANUMÉRICA. 

PROCURA POR NOME, N? DE ENIRADA OU 1* COOIQO NUMÉRICO. 

O sistema de listagem empregado nos programas O e C possibilita a 
impressão no vídeo das variáveis arquivadas, solicitado o seu subs 
crito. 

No programa a seguir serão impressas as diferentes variáveis rela 
cionadas Ide mesmo subscrito) da variável numérica ou alfa ánTorma 
da. Ou melhor, fa/endo uso de um menu o programa poderá perguntar; 
Qual o nome desejado? ( ou código). A seguir, compara esta infor^. 
çio com todas as variáveis arquivadas e obtendo uma igual, impri *• 
-a no video junto com as demais de me —o subscrito. 

DIGITE OS PROGRAMAS (E) E IF) E A SEGUIR: 


2?? PRIKT "P/ NOVO AROUIVC DIGITE ?- 

21$ PRINT "0/ PROCURA- P/ lO C0D1C0 DIGITE 1* 

22$ PRIKT "P/ PROCURA P/ KGKC DIGITE 2" 

23? IKPUT P 

2*$ IF P<? CR P»-2 THCN GOTO 23? 

2«5 CLS 

25? IF P * 1 TKEK COTO 3?? 

26? IT P * 2 THEN COTO *$$ 

3?? PRIKT -DIGITE 0 lOCODICO |-| 

31? IIPUT X 

315 PRINT X 

32? rOR C « 1 TO N 

33? IF X * A(C) THE* COTO 35? 

335 KEXT C 
3á? COTO 38? 

35? PRIKT -20 CODICO |-; B(C) 

355 PRINT -HOME i";AS(C) 

36? PRINT 
37? COTO 2?? 

39$ PRIKT "CODICO KAO ENCONTRADO" 
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41? LET X = LEN Xl 

425 Lt7 Kl c Al (C # (X ♦ 1)) 

385 PRINT 
390 COTC 200 

400 PRINT "DIGITE.O «iDNE i"| 

610 1NPUT Xf 
420 rOR C b 1 TO N 

430 ir XI * Al(C f TO X) ANO CODE (Kl) » 0 THE* COTO 45|í 
435 NEXT C 
440 COTO 490 
450 PR1NT Al(C) 

455 PRINT -lB CODICO i";A(C) 

460 PRINT -2 61000100 l"»B(C) 

470 PRINT 
4B0 COTO 200 

490 PRINT "NOHE NAO ENCONTRADO" 

500 COTO 200 

0 progcaaa aontado prciU-M, por oaoftp lo, a »oaa agond* tolofonica, 
coa noM o dolo tcUfonM. 0 p rngr soi a procuro o tolofoao polo noa 
ou vico voroo. 

Ou coro ido ro qua o 1* código adja uot doto no foraa do 4 algariooroa 
aaa ponto, virgulo ou traçoj oiamplo: ll/jon/82 ■ 110142. o o 2 « 

código -jm wolcrr aa dlnhoiro. Noato coso voco toro tm controlo do 
contoo o rocobor/pogor. 

Hajo viato o carátor lluotrotivo o o aontagop por portoa doato pro 
grtM, cortoa dotalKoa ou rofínaaofttoa formo oaltldoa. 

Cortoaonto voco oati opto o corrlgi-lo o augiro coaaçar coa a in 

cluaio da poaalb&lidodo do aubatitulçAo o/Oo oltoroçlo individual 

doa flchoa, o quo t aa b éa podo aor folto.waondo-oo a inatruçlo L£T 

dirotaoonao. Pbr oaoaploz 

LET A$(3)--*OVO HOME" o Noa Lino 

LCT M 3)-0707 o Noa Lino 

LET B(3)-7777 o Noa Lino 


Mota: 

0 uso do varlávoia aubocritoa obrigo o aos» d la an a ionaaanto polo uao 
do inotruçio DIM. 

Voco podo grovor ua progroao. lnclualvo coa ouoa variávaia, contudo 
ao ro+lrd-lo do coaaotto,NÍO uao o instrução «Lb. Elo opaga aa va 
rlóvoia. Olglto GOTO (1« linha do progroaa). 
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CONTA BANCARIA 


Program* d ara 16 Kbytes de RAA4. 

Pode ser rodado, testado ou gravado coa 2 Kbytes de RAM sem 
quer alteração, se, no aiiimo, houver 3 a 4 lançamentos. 

5 RCM ATCftCAQ Dl Cl TC COTO 3? 

\0 RÍK KXCftOK CLETROUCA 

15 LET T -- ? 1C I.CT C =T 17 L£T !.C *■ 0 
20 PSIU "CCKTROLE D£ CC.\T4 SAf.CARlA" 

30 CCTO 21* 

32 CLS 

33 PR]f.*T "SALOÍ ATUAL * ";T - C 

34 PS!M "DIGITE SALDO 0/ XMCIAfi 

35 lf.PUT T 

36 PR1KT T 

37 PSRT "CTOS. L4RCAKCKTCS ?" 

36 1WPUT ICC 

40 0U* D(r;c) 

4? DIF. Y(«C) 

44 DIK ,# £(r.C f 6) 

45 roR ?; s i TC r c 

46 CLS 

47 LR1HT "E5TE £h 0 UKCAKENTO DC ";IT 

<iS pri?;t 

50 PftJ.VT "P/ CH£CU£" f "DlClT£ 1" 

51 PRJKT "P/ D£POSlTt-, M DjClT£ 2" 

54 IPtPlfT * 

39 LCT C -T 

56 IT X < 1 CR X > 2 THECOTO 56 

57 CLS 

58 ir X = 3 THE»! Cf Tf 200 

59 ir X r 1 T«£N PfilPT •CHEGUE* 

60 I f t s 2 THEN PRJKT "DEPOSITO" 

61 PR!RT 

62 CRINT "DCCUKRTC Kg} i '; 

64 IfcPUT D(K‘) 

66 PR1NT D(r«) 

10 PR1KT "VALCF CK 
72 ITvCUT tf(R) 


qual 


74 -RIM { /(tf) 

9p ir y = i thcí- ui i/'rO = v(r) * (- 1 ) 

92 ir X r 1 THf r PRIM TAVCRCCnC í"; 

94 ir X = ? THE tf PRIM ••KDT1V0 

100 IfíPUT MS (tf) 

110 PRIM KS (tf) 

115 i r k ■ 1 THCtf- r.cTt ?00 

120 LET T r T ♦ v/(r:) 

125 PRIM 

130 PRIM "SALDO ATLAL f :";T 
135 PRIM 

U0 PRIM "DIGITE EME R" 

145 ltf-PUT US 
150 tf EX T tf 
200 PRIM 
210 CLS 
215 LET K = 0 

220 PRIM -P/ l At.C" PE f.TCS ", "DIGITE 2" 

230 PR!\T ”P/ ULT. EX7RmT 0","DÍCITE 2- 
240 PRltfT "V AITERACCE5","DIGITE 3» 

250 ! tf‘PL'T P 

260 ! r F < 1 CR P >3 T HE tf GD7C 250 

265 IF 'iZ =0 AtfD P«1 T HE tf CCTU 250 

270 !F F = 1 THEtf GO TL 32 

260 I r P = 2 THE tf GOTO 300 

290 IT D = 3 THEtf CETC 400 

2S8 CLS 

305 LCT T = 0 

320 PRIM 

330 FCR tf = 1 TC MC 

540 IT V(tf) <• 0 T HE tf PRIM " C HE tf L'E tf O”; 

345 IF. V(tf) >0 THCtf PRIM "0GPC5IT0 DOC. tfEJ"; 
345 PRItfT D (tf) 

350 PRIM • i/ALDR EK S ";V(tf) 

352 LCT T = T + U(tf) 

354 P Ri MT "P/ 

356 PRIMT 

359 PRIM "SALDO ATUAL ; ";T < C 

360 ! f tf/3 = 1 tf*T (tf/3) THE tf COTE 370 


7 ? 



362 PR1NT 
364 KEXT lt 

37? PR1NT "OI Cl TE EKTER" 

372 lílPUT US 
374 CLS 
376 r.CXT h' 

37e COTC 2?? 

366 RCM 

41|í PRJKT "?uai O i;KCfcPCf-TO ft CORRIC1R ?* 

42? PRIKT "DC 1 A *;NC 
4 3? 1KPUT K 

44? ir fí < 1 OR KC < K THE* CCTG 43? 

45? CLS 
455 LET K c 1 
46? COTO 46 

NOTA: 

O número de lançamentos perguntado pelo prograM é o número de 
subscritos das variáveis a serem dimensionadas nas linhas 38 a 44. 
NÃO pode ser alterado, durante o uso do programa, sob pena de todas 
as variáveis subscritas serem igualadas a ■ . 

Os cheques significa» débitos em sua conta corrente, portanto para 
entrar os débitos diversos, tais co»o despesas de talonários. ju 

ros, I.O.F., etc.informe "1" (cheque) na linha *>4 « o efeito 

será o mesmo. 

Use o programa como arquivo/extrato e grave-o após cada processa 
mento. Para novo processamento, retire do cassette o último extra 
to gravado. Veja o seu saldo (linha 33) e confirme-o (linha 34). 

»a ra incluir cata nos lançamentos sugiro: 

reescreva 44 DIM *$(NC,i4> e, quando o programa solicitar o favore 
eido do cheque ou a origerr co depósito, digite a data e, a nequrr, 
a informação solicitada. 
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ESTOQUE 


fcste regram* é apenas uma iniciação em controle de estoque. Ocuoa 
pouca memória. Foi dimensiorado para 10 ítens e nàc arquiva cód^ 
go numérico dos materiais, *a/endo uso do número do subscrito das 
vadiáveis como código Co material e elemento para procura. Também 
não altera as ficbas ireiivícua Imente ou parcialmente (vide linna 
510 . 

Pa^a alte^açdes neste programa, veja antes a secçío de arquivos. 


1 REM RTENCAO DIGITE COTO 7 

2 Dl tf Dt 

(10,10) 

U DIM Q 

(10) 

5 LET X 

= 0 

6 DIM P 

(10) 

7 PRIM 

AT 6,0;"CONTROLE DE ESTPCUC" 

B PRIM 


9 PRIM 


10 PRIM 

"SEU E5TC'JUE E5TAH C/ ";X;" ITENS" 

11 PRIM 


i2 PRINT 

"VOCE OUER A LISTAGEM ^S/N" 

13 INPJT 

PS 

14 PRINT 


15 ir P£ 

="N" THEN COTO 17 

16 COTO 500 

17 PRINT 

"OTOS. ITENS VCCE .'lUER TER ?" 

19 INPL-T 

X 

22 rOR K 

= 1 TO X 

25 CLS 


30 PRINT 

"C0D3C0 ";N 

32 PRINT- 

"QUAL A DESCRICAO DA PECA ?" 

34 INPUT 

DE (N) 

40 PRINT 

":ual a :-uant. ?•• 

50 INPUT 

0 (N) 


55 IF C (N) * 0 THEN' COTO 500 
60 PRIM "ItJAL 0 PRECO ' 7 " 

70 INPUT P (N) 

75 CL5 
B0 PJCXT K 
500 CLS 


74 




501 PRINT "CONTROLE DE ESTP‘.UE" 

502 PRINT 

5J tU rOR N =1 TC X 

505 ir 7 (N)< = 0 THEN PRIM "COD1GC ";N;" PGRfl DE CSTCCUÍ" 

506 NE XT K 
506 PRIM 

509 PRINT “"UAI C CODIGO ?" 

510 PRINT AT ?0 t 0;"ENT RE 0 PARA RE-ESTOCUE" 

511 1NPUT N 

513 CIS 

514 ir N = 0 THEN CCTO 10 

515 IF K > X THEf» GOTO 1000 
517 PRINT D* (K) 

5ie PRINT AT 6,0 ;"CODlGC";T AB 15;N 

519 PRINT 

520 PRINT "CUfif.TIDADE" ;TAB 15;Q (f») 

522 PRINT 

530 PRINT "PRECO-jTAB 10f$";TA9 15;P(N) 

532 PRINT 
534 PRINT 

540 PRINT ” UANTAS PEÇAS VENDEU ?" 

544 INPUT Z 

546 LET Q (N) = C (N) - Z 
550 CLS 
555 GOTO 500 
1000 CLS 

1010 PRINT AT Í0,0 ; m VC FICOU MALUCC ?" 

1015 PRINT "ESTE CODIGC MAC EXISTE" 

1020 PRINT "TENTE OUTRA VEZ" 

1030 PAUSE 200 
1040 CLS 
1050 COTO 510 

Adicione ao programa : 

14 ir PS ="S" AND X =0 THEN GOTO 13 
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| AGENDA TELEFÔNICA 

Fara 16 Koyte* de RAM. dependendo do número de lançamento», pode 
ser rodada/testada **- 2 Kbytes de RAM. 

A-qjiva N telefona» seguidos de nomes e endereços. Procura o telc 
fone pelo nome ou vice versa e of-rece a possibilidade de se alte 
rar as fichas, etc. 

Caso o sistema possa lhe parecer pouco prático devido a morosidade 
dc cassette, vale lerorar a boa velocidade de procura dos telefo 
nes, após havermos ca-regado o programa, principalmente para con 
sultas e» quantidade e continuamente, C)*o por exemplo: 

Arquive de comunicados de Rádio Amadores para uso durante as trans 
missões. 

5 REN USE COTC 1* 

1* RE V MICRON ELETRÓNICA 

16 DR1NT AT 6,*;"AGENDA TE LE FCN1CA* 

19 PRlfvT ,,,, 

2* CC TO ?** 

22 CLS 

25 PR1WT ”:tcs NOMES ?" 

3 * impOt m 

<i* PR1NT W 

5? PR1NT "KAX. 11 LETRAS POR NOW 
6* REK VC PODE ALTERAR LINHAS 7*. 82 
7* OKI AS (K 9 1?) 

B* D1M A (N) 

82 DlM BS (R #12) 

1** rOR X = 1 TO N 
11* CLS 

12* PR1WT "SUAL 0 ";X;"CJ NOME ? m 
13* IKPUT At(x) 

16* PRINT "OUAL 0 TELEFONE ?" 

15* IKPUT A (X) 

152 PRINT A (X) 

156 PRINT "CUU 0 ENDEREÇO ?■ 

156 IKPUT Bí (X) 

16* CLS 
17* NEXT X 

16* PRIKT "OK, NOMES E TELEFCNES ARuUIWADOS" 

2** PRINT 
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•220 PRINT "P/ Tacr0wr-, M D1G1TE 
2 ?* PRINT "move AROUI VO" # "DlG1TE 0" 

2*0 1NPUT P 

2*0 IF P<0 GR P >2 THEN GGTU 230 
245 CLS 

250 lf P = 2 THEN COTO 500 

260 IF P = 1 THEN COTO 400 

270 IF P = 0 THEN GOTO 22 

300 PRINT "DIGITE O TELEFONE 

310 INPUT X 

315 PRINT X 

320 FOR C = 1 TO K 

330 IF X = A (C) THEN GOTC 350 

335 NEXT C 

340 GOTC 320 

350 PRINT "ENDEREÇO :";BS (C) 

355 OR1NT "NQKE :";A$ (C) 

360 PRINT 
370 GCTO 200 

3Ü0 PRINT "TELEFONE NAC ENCONTRADO" 

386 PRINT 
390 GCTC 200 

400 PRINT "Dl CITE NOME s"; 

410 1NPUT Xf 

412 LET X = LEN X* 

420 FOR C = 1 TC N 

425 LET Kl = A$ (C, (X 4 1)) 

430 IF X$ = AS (C # TC X) AND CODE (K$) =0 THEN GCTO 450 
435 NEXT C 
440 GOTO 490 
452 PRINT A$ (C) 

455 PRINT "TELEFCNE :";A (C) 

460 PRINT "ENDEREÇO :";E$ (C) 

470 PRINT 
480 GCTO 200 

490 PRINT "NOME NAO ENCONTRADO" 

500 COTO 200 


77 



205 PRIWT "PROCURA" 

210 PR1KT -P/ KCKC" t *DIGIT£ 1" 

Par* alterar aa ficha» arquivada», acrescente: 

2 LET N = 0 
14 LET K = 0 

15B ir K = 1 THEN COTO 175 
175 LET K = 0 

222 PRINT "P/ ALTERAÇÕES"."DIGITE 3" 

240 ÍF P<0 OP P>3 THEK COTC 230 
242 ir P<>0 AND H c 0 TMEN COTO 230 
248 IF P = 3 THEN GOTO 510 
510 PnlNT "2UAL A PICHA P/ ALTERAR ?■ 

520 PRINT "DE 1 A ";N 
530 IKPlfT X 

540 IF X<1 OR X»N THEN GOTO 530 

550 CI.S 

560 LET K e 1 

570 COTO 110 

Caso voce niu esteja conseguindo localizar o número da ficha a ai 
terar, adicione: 

465 PRINT "FICHA NH";C 

Para arquivar dois telefones por nome, digite-os seguidos, separar 
do-os com um ponto decimal. 

O programa solicita o número (quantidade) de telefones a serem ar 
quivados, isto é. é voce quem dimensiona as matrizes. 

Informe alguns números a mais do pretendido, para que no futuro vo 
ce possa incluir novos telefones. Neste caso, voce terá aue inter 
romper o looping que oergunta os dados para arquivar, usando STOP 
e GOTO 180. No futuro , para incluir ntvas fichas, faça-o atra 
vés do menu - alterações (ficha vazia p/ outra nova). 
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[ PLANO CONTÁBIL _ 

Para 16 Kbytes de RAW. 

utilizado como ra/onete para a elaboração de balancetes. Arquiva 
até «r. I e duzentos documentos pelos cócigos de débito e crédito. 
Aceita até o ei documentos po** código, sendo os códigos de 1 a 120. 
habitualmente us«m-se os códigos de 1 a 100. Quando um destes códi 
gos estiver com o número de lançamento esgotado (’0), isto será 
mcicadc e oeve-se relacionã-lo com um des códigos de ICO a 120, 
enamados de códigos reserva. 

Caso os códigos empregados na contabilidade seja» de valores acima 
de 100 a 120, faça uso do orograma orderador de códigos, pa-a re 
solver c problema. 

O programa fornece a listagem dos documentos por código, indivi 
cualmente e sucessivamente, com valores, número de entrada e to 
tais. 

] REí* CUL46LRACAU TLCMCL Cül.TAEll bír'3LLÜ 

2 REF. K.lCRGk £ LETRCfv 1 CA 

3 D1K 2 (10,120) 

4 DIM A (1 20) 

6 D1H V (l?.12jJ) 

3 DXK N (12?) 

10 LET 2 = 1 
J2 LEI K - 1 
14 P*1\T "CCfiTA61 LIDAüE" 
lfc PR1M 

16 PR1KT "NUWERA C ARGUI VA VALCRE5" 

2? PR1M -LAKCAKDO A CRCDITC E DEFITU" 

22 PRI\T 

24 PFlf.T "CLASSIFICA E LISTA" 

26 PRI\T "PüR CODIGÜS DE 1 A 100" 

23 PR1KT 

3? PRII4T -OTÜS LAlíCAKEKTCJS A REALIZAR ?" 

3 2 IkPLT * 

34 CLS 
36 PR1KT 

92 PR1 r.T -DCCUfcíKTÜ KB" ,Z 

93 PR1NT 

94 FRIM -CIDIGO P/ DEB1TL ?"; 

93 LET 9 = 1 
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97 GOSUS 120 
9b L£T X = A 

120 1NPUT A 

121 PR1K1 A 

123 LET K (A) = N (A) ♦ 1 

126 1F K (A) = 10 THEK LET V (n(x),X) = 0 

128 1F K (A) = 10 THEN GCT 0 *00 

132 LET Z (k'(A},A) = Z 

140 !F B = -1 TH-IK LET Z = Z ♦ 1 

144 1F B * -1 THEN GliTC 159 

150 PRINT "VALOR EM C Ri", 

15E 1NPUT V 

159 LET V (M(A),A) = V • B 

160 IF Ê = -1 THEA GOTO 163 
162 PRINT V(K(A) f A) 

164 RETURA 

172 ÍF Z>=K ♦ 1 THEN GOTO 1G0 
174 1F (Z/3) = 1 AT (Z/3) THE A CLS 
176 GOTO 90 

160 PRINT "OUTROS LAKCAMERTGS ? S/N" 

1B1 1APUT PS 
1B3 CLS 

165 ir PS ="S" THEII GOTO 90 
169 ir A = 100 THEN GOTO 194 

190 1F Pf ="P" THEN LET A = A ♦ 1 

191 IF V(1 v A) = 0 THENGOTC 1B9 
193 ir Pi = "P" THEN GOTO 202 

196 PR1NT "QUAL O COOIGO A LISTAR ?" 

199 INPUT A 

202 CLS 

203 IF A = 0 THEN GOTO 400 

204 PRINT "COOICC" f A 

205 PRINT 

206 PRINT "NDOC ENTRADA"VALORES EH CR?" 
2ft7 PRINT 

208 LET T - 0 

210 FOR X .s 1 TO 10 

212 IF V (X, A) r 0 THEN GOTO 232 

220 PRINT Z (X ,A), V (X,A) 

222 LCT T = T ♦ V (X,A) 
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230 NCXT X 
232 PRINT 
236 PRINT 

236 PRIMT "VALCR TOTAL =",T 
2 3P .PRINT 
240 PRIMT 

24? PRINT " P RU XI MO C0DIG2 DIGITE P" 

250 COTO 1B0 
400 5T0P 
500 CLS 

510 PRIMT AT 9,0;"E5TE CUD1GC (";A;") CSTA C/ C NR." 
52fí PRIMT M DC LANÇAMENTOS E5GOT ADO" 

530 PRINT " RELACl ONE -O C/ OUTPC CCDIGO" 

540 PRINT ,,,,,, 

590 PRINT "DIGITE NEW LIME" 

532 INPUT Al 
535 CLS 
590 GOTO 90 
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FOLHA DE PAGAMENTO _ 

Este programa processa todos os dados de uma folha de pagamento, pa 
ra N empregados, dentro da atual legislação. 

Emite contra-cheque por funcionário, guia do IAPAS, FGTS, etc. ... 


O programa foi criado em colaboração com João Batista de Aquino, 
técnico em contabilidade. Foi atualiiado e revisto em agosto/83 . 


A seguir modelos de entrada e saída de dados e a listagem: 



FO-Hú DE PAGAMfNTO 
UEP5A0 3 - AG05T0 33 

; xnicIW^l.-Lo.. 1 " X6 ~ E 1 

nmmsms^ z3STE s 

cch a folna de pagamento. 

GjXAS DE IAPA3 £ fçt5. 

SEM GS CONTRA-CnEOUES 

S BBHK IGITC 2 

. 

GUIAS DE IRPA5 E FGTS, SE 
viar CALCULADO OU AROUIUAOO 


FUNCIONÁRIO 1 
OU<=L 0 5ALARIC En I“ 
POR ME3 DIGITE - 
POP MORA DIGITE r 
POR DIA DIGITE D 
5AL . r*ORA 

FALTAS - * DIGITE S/N 
SE POP NORA, QTA5.NS 
OTGS.DIAS’’ 

N0PA3 EXTRAS** S/N 
h s extras a ío ■ , 

N5 E*TPA« A Í5S 
"S ExTRAS A 100" . 
OUTSA TAXA ? S'N 
PRENI05 EM $‘ 
SA^.FA-, N" C-OTA* 

ualest 


= 000 , 


H 

375 

5 

0 

8 

5 
0 

6 
0 
N 
2 

:a7s 

12000 


ERRO” DIGITE d 
0K* DIGITE N u 


CCNTRACHEIuE • 


SAwAC10 NES=t 
nS E>TPA“=s 
PPEM105 = % 
sa_ap:: so5e=s 

IARAS . 

:esc.iapas=* 

I.P.R.F.:| 

•’A»ES*S 

S=_.FA«IlIA«» 

= REIEEEPa» 


“JNCICNAR10 : 


ri 000 
2512.5 
0 

SÔ312.S 

r.f . 

'379.06 

0 

12000 

3*'S 

'0911.*4. 
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d lcT ABO«0 
7 GOTO 1000 

IO REM MICRON I E^QINICR 
12 REM JOOC e.Rw.T-.C 
15 LET AAbPI-RI 
18 LET B = PI.'RI 
21 LET C»B *B 
?2 LET D*C*B 
?4 LET E«0*B 
27 LET F =E*B 
30 LET G«F 
33 LET H=G*B 
36 LET I»M*B 
39 LET J»I*B 
45 LET K*j4B 
48 LET U*K4K 
51 LET TB.F4E4C 

53 LET 05».5 

54 DIM 51Fi 
57 DIM M»F» 

60 DIM P (Fí 
63 DIM L CGi 
66 DIM V CF• 

69 DIM T CG» 

72 DIM YIF» 

78 DIM X <F> 

80 LET ARO «1 

81 DIM ZÍF» 

84 DIM 0 CG• 

85 PRINT ,, FOlmO DE -r..- *’ T 
•p/ ©Tos. funcionário;- 

86 INPUT FC 

87 PRINT .,FC 

89 PRINT ..-MÍNIMO c £jI?’—. *3 
4.776.00 3/N-»" 

90 INPJT J* 

91 IF AND J1 > N “-EN 

GOTO 90 

93 IF J|<>'5" TMEN GOTO 102 
96 LET JO = 3*776 
99 GOTO Ufl 

102 PRINT "CU A- 0 «hLARIO “INIm 
0 DO REGIÃO?" 

105 INPUT JO 
108 CL5 
111 LET NsAQ 
115 FOR 0=8 TO FC 

120 CL3 

121 PRINT *FUNCI0NOPIC G 

122 PRINT "OUAL 0 50uhPI0 E~ %' 
TOB TB, 
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123 INPUT 5 

124. PRINT 5,-POP hei DIGITE", M 
".•POP HORA DIGITE \ "H","POR DIA 
DIGITE’’ t "D"; TAB Te, 

125 INPUT P$ 

126 PRINT P$ 

127 IF PS ="D" THEN LET S=S*K*D 

128 LET SH«INT < í5/<F*G4I»)4Ü• / 

U 

129 IF P$ < >"H ' TMEN GOTO 148 

130 PPINT "QUANTAS HORAS'*",^© 

132 INPUT HPS 

133 LET 5M-5 

134 LET S=5*HR3 

135 PRINT HRS 

151 PRINT "5AL.HORA ";TAB TB,SH 

152 PRINT "FALTRS-* DIGITE 5/N’; 

TAB TB, 

153 INPJT US 

154 IF US*’"’ THEN LET US=’N" 

155 IF ü|O h 5" RND US < >"N * THEN 
GOTO 153 

156 PRINT US 

159 IF U$ = "N" THEN GOTO 135 

160 PRINT "5E POR HORA, OTA5.H5 
■'"íTRE TB; 

162 INPuT US 

163 IF U$ = "" THEN uET US = ‘’®" 

165 LET HP»UAL US 

168 LET FL=hR*5H 
171 PRINT HP."QT0S.DIA5?";TAB T 
0 , 

174 INPUT US 

175 IF US®"" THEN LET U»= ‘0 m 

176 LET U*UAL US 
'.77 PRINT U 

i80 LET FLsFL+((SM*I>»U) 

133 LET 5 =5-FL 

136 PPINT "HORAS EXTRA5? 5/N' ,T 
hB TB, 

137 INPUT NS 

133 IF N$ = "" THEN LET N$= 'N*' 

190 IF N$ < >"5 RND NS < >"N THEN 
GOTO 187 
192 PRINT NS 

195 IF N$b'*N" THEN LET SE=AA 
198 IF N»="N" THEN GOTO 234 

201 PPINT "H5 EXTRAS fi 20 */■*’; T 
RB T8, 

202 INPUT US 

203 IF US*"" THEN LET US* 0" 

204 LET HRsyAL US 

205 LET 5E=<«SH41.2)*U>*HR 

206 PRINT HP, "HS EXTRAS R 25 
*\ TRB TB; 

207 INPUT US 

203 IF US*"" THEN LET US*"0" 

209 LET HP=uAL US 

210 LET 5E«5E+((lSH«l.fiB>ftUMHR 

) 

211 PRINT HC.-H5 EXTPAS R 100"/ 
• “;TflB TB; 

213 INPuT US 

214 IF US*"" THEN LET US*’ 0" 

215 LET HRsURL US 

216 LET 5E = 5E*í (SH*C)4U)4HR 

217 PRINT HP,"OUTRA TAXA - 3 N 
",TRB TB, 

218 INPUT DS 

219 IF DS*"" THEN LET DS*'N" 

220 INPUT DS 

221 PRINT DS 

222 IF DS < >"5" THEN GOTO 232 

223 PRINT "QUAL R TAXA?”,TA5 TB 

224 INPUT TG 

225 PRINT TG.-MS EXTPR5 A ’;TG; 
“ ■/# ”;TA0 TB, 
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226 INPUT HR 

227 LET SE«SE* « tSMX (TG*U> *U» 4H 

R) /U» 

231 PRINT NR 

232 LET m« <INT '••♦05)»/U 

233 GOTO 237 
234. LET M*AA 

237 PRINT "PRÊMIOS EM i?";TA8 T 

B, 

238 INPUT Ui 

239 IF Ui»**" THEN LET UÍ*"0 M 

240 LET P*UAL US 

243 PRINT P, 'SAL.FAM. QUOTAS 
",TAB TB; 

244 INPUT Ui 

245 IF Ui* " THEN LET U|* ,, 0" 

246 LET L «UAL Uf 

247 LET L *L4lNT (J04F/U4.5) 

248 PRINT L # "UAlES'**', 

249 INPUT Ui 

250 IF Ui■••• , THEN LET U*«”0" 

251 LET U*UAL Ui 

252 PRINT TAB TB;U 

253 PRINT ./•ERRO*’ DIGITE E“ 

254 PRINT **OK? DIGITE N/L" 

255 INPUT Ui 

256 IF Ui*”E" TMEN GOTO 120 

257 LET T1=0 

258 LET T«S4M+P 

259 LET UTS=E*F*JO 

260 IF T>UT3 THEN LET T1*T-UT5 

261 IF T >UT5 THEN LET T=UT5 

263 IF T< »(D*JO) THEN LET 00*8. 

264 IF T>(D*JO) AND T<«iF4J0» T 
MEN LET 00*8.75 

267 IF TXFtJO) AND TcXK-tJO) T 
HEN LET Q©*J 

270 IF T >(KfJO) AND T<«(D*F*JOi 
THEN LET 00=9.5 

273 IF TXD4F4J0) TMEN LET Q0«1 

276 IF 00-8.5 THEN LET R*B 
279 IF 00*8.75 THEN LET R=C 
282 IF 00-J TMEN LET fl*D 
285 IF 00*9.5 THEN LET R=£ 

268 IF 00«K TMEN LET R*F 
291 LET SCRi=SíR)4S 

294 LET H<Rl*M(R)4H 
297 LET P(R)=P(RJ 4P 
300 LET U (R)*U(R)4U 
303 LET TCR)=T(R)*T 
306 LET L (RJ *L CP) 4L 
309 LET A(R; =A CRi +B 
312 LET TD-422 
315 CLS 

318 LET Y-INT (Tt(00/U) tU + OS»/U 

321 LET Z-AA 

324 LET IR-T.4T1-Y 

327 IF IP<«144000 TMEN GOTO TD 

330 CLS 

333 PRINT "OTOS. DEPENDENTES PE 
RANTE 0 I.R.” 

336 INPUT Ui 

337 IF Ui■• , • , THEN LET U$»"0 M 

338 LET DPT«UAL Ui 

339 CLS 

342 LET DEP=DPT*140O0 
345 LET IRF *INT (IR-DEP+OS) 

248 IF IRF<*144000 THEN GOTO TD 
351 IF IRF>*144001 AND IRF<*221 
000 THEN GOTO 369 
354 IF IRF>*221001 AND IRF<*315 
000 T NEN GOTO 378 
357 IF IRF>*315001 AND IRF<*491 
000 THEN GOTO 387 
360 IF IRF>=491001 ANO IRF<*790 
000 THEN GOTO 396 
363 IF IRF>*790001 ANH IRF<*112 
3000 THEN GOTO 405 


«6 



364. IF XPF > a 1123001 PND IPF =16 
93000 ”HEN G0 T 0 414 

365 IF IRF *1693001 PND IPF •: =25 
52000 THEN GO T 0 417 

366 IF IPF:=2552001 ^MEN GOTO 4 
20 

359 LET 2*IN^ I»F*:^G/J40S> 

372 LET Z *2-17260 
375 GOTO TD 

378 LET Z*In~ IPFíE^E 'J ♦ OS» 

331 LET Z*Z-261£0 
334 GOTO TD 

337 LET Z=INT . IPF*5*F/u-fOS» 

390 LET Z*2-38720 
393 GOTO TD 

396 LET Z=INT (IRF*=*F/U40S* 

399 LET Z*Z-63270 

402 GOTO TD 

405 LET Z=INT (IPF**4G/U405* 

403 LET Z =Z-102? 7 0 
411 GOTO TD 

414 LET Z = INT i.2CF^4H/U405i 

415 Lf r Z =2-153920 

416 GOTO TD 

417 LE"* Z=INT *IPF4F4I/U405* 

416 LE^ Z=Z-2435-0 

413 GOTO TD 

420 LET ZsIMT I IRF4F4J/U40S* 

421 LET Z*Z-3711?0 

423 IF Z < *6020 T"EN lET Z=0 
426 PPINT ••CONTRPCHEOUE - FUNCI 
ONRPIO ";Q 
423 LET GS =951 

430 LET UÜ=S 

431 GO6 UB GS 

432 PRINT . , , SftLRRI0/ME5*f,K 

« 

435 LET UU=H 

436 G05UB GS 

441 PRINT -MS E-TRRS = $ ,K$ 

444 LET U‘J=P 
447 G05UB GS 

450 PPINT "PPEM105= ,K$ 

453 LET UU*T 
456 GOSUB GS 

459 PPINT "SPLPPIO BftSEM" .K$ 

462 PRINT , . ‘ IPPftS" , i 00, " ■/« 

465 LET V ÍP) *Y CP» *Y 
468 LET UU=Y 

471 GOSUB GS 

474 PRINT , ,"DESC.IRPRS*r , / K* 
477 LET Z (Ri *Z CR» +Z 

460 LET UU=Z 

463 GOSUB GS 

466 PRINT “I.R.P.F.=$” ,K* 

489 LET UU=U 

495 GOSUB GS 

496 PRINT "URLE5* $**#Kf 
498 LET UU=L 

501 GOSUB G5 

504 PRINT *'5RL.FAMZLIRsf" ,K§ 

511 LET X *T VT 1 -Y ♦L -U -Z 

512 LET X(R3=XCP)*X 

513 LET UU*X 
516 GOSUB GS 

519 PRINT , ,* R RECEBER*!'* ,Kf 
525 INPUT Pf 
528 IF P$*'I" THEN COPY 
531 CLS 

534 NEXT 0 

535 LET 0*fi« 

537 PRINT *'FOLMP DE PRGPHENTO" 
540 LET SR = S (B » ♦S • C) *5 «’D) 4-S : E> ♦ 
S (F) 

543 LET S6*MCB» ♦M(C) ♦M lD) ♦* ; E-♦ 

h CF) 

546 LET 5C*P í 6 ♦ ♦P CC» +P >D) ♦P E;- 

P CF) 

549 LET SD*T ÍB • ♦T CCI VT <D) ♦T < E ♦ 
T CF) 




352 LET 5Y*Y(01 *Y(Cl 4Y (D> *Y(El ♦ 
< <F> 

355 LET 3U-U (BI ♦U(C) ♦V (D) *-U (El ♦ 
J (Fl 

555 LET SM-L (BI ♦L(C) ♦L (D) *l. IEI ♦ 
L(F> 

561 LET SN*X(BI ♦X(C) *X(D) *x(El ♦ 
X (Fl 

564 LET UU*SR 
567 GOSUB GS 

570 PRINT ,,"SALRRI0/ME5*r* ,K 

573 LET UU-3B 
576 G05UB G5 

579 PRINT "MS EXTR«S*Í",KÍ 
582 LET UU*SC 
585 GQ5UB GS 

588 PRINT "PREMI05*6",Kf 
591 LET UU-SD 
594 GOSUB GS 

597 PRINT -SRLRRIO BRSEM",K0 
600 LET UU*SY 
603 GOSUB GS 

606 PRINT , , "DESC . IAPAS*$" ,K* 
609 LET IRRF-2 «BI *Z CC) «-Z (Dl *2 (E 
I +Z (Fl 

612 LET UU«IRRF 
615 GOSUB GS 

618 PRINT "I.R.R.F. •%" ,K$ 

621 LET UU*SU 

624 GOSUB GS 

627 PRINT "UfiLE5*$ * ,K « 

630 LET UU*SM 
633 GOSUB GS 

536 PRINT ’ SAL . FftMlLIA* $ '* , K$ 
639 ..ET UU«SN 
642 GOSUB G5 

645 PRINT ••« PAGAP* f" .Kl 
651 INPUT Oi 

654 IF Of.-I" TMEN COPY 

655 CLS 
“ i PRINT 


TAXA 


SEGURO ’ 

659 INPUT TX 

660 PRINT TX, " ■ , ’• _ 

661 P P INT . !■■■■ 

■■■■CIGITE 1 • "P; GUIAS 
RS","POR FAIXA 5RLRPIPL". 
ND O GUIA ÚNICA" 

664 P RINT , . ’ 

■■■■DIGITE 2 

665 INPUT I 

666 LET «0=0 

667 LET LO *0 

66e le^ to =0 

670 IF 1=2 THEN GOTO 661 

675 CL5 

676 FOR 0*1 TO 5 

677 IF T (0) =0 THEN NEXT 3 
676 IF 0>5 THEN GOTO 681 


677 

IF Tí 

676 

IF 0> 

6"9 

PP INT 

AL 1 

Q 

650. 

PRINT 


664 

PR INT 


FAIXA SftLARI 


• COD. •*"396.. . T (01 

664 PRINT "COD . ””4 19 *" .A(Q* 

687 IF 0=6 TMEN LET O=26.7 
690 IF 0*0 THEN k_ET MM = INT mTi 
01 *VY ) --U* .51 

693 IF Q.C TMEN LET YY*26.9E 
596 IF 3*C THEN LET MM*INT K «Tl 
01*YY)/U» .5» 

699 IF D*D TMEN LET Vi*27.5 
702 IF 0*0 THEN LET MM-INT l 'T ( 

0) *YY) /U+.5) 

"05 IF 0*E THEN LET Y\ *27. " 

"0e IF 0*E *MEN LET MM sINT . T. 

0 > *Y> I /U ♦. 5» 


81 


« *25.1 
*15.2 
HMsIfiT 


"10 

-c -p T*| 

“11 

•* 0 c 7-' 

713 

: r õ *F T 

: • 

U - . 5 • 

"15 

I c 0 * 7 r 1 

“1" 

_E“ MM*::-.■ 

"20 

=pint aa 

“23 

LE* UUsMM 

"26 

OCSUB OS 

723 

PCIMT 'CG 

' " n 

"32 

LET N:IMT 

744 

-E" UU*M 

"46 

o:SUE 05 

74" 

= PIMT * CC 

• ■ • 

* * 

750 

_E“ MN «MM 


_E" L-aMN 

"56 

03SUE 05 

753 

= PI-UT CG 

“62 

_E~ 0 G* IN' 

U *. 

c \ 

"65 

= RI ir H 

"6 5 

-E* _ = 03 

* 

03SUE OS 

zzt 

PPÜÍT ’ CG 
,E“ BB«IN 


HEN i_V 


-E" 
MM*L* • 


013* . 

• C" +TY .-U) * . 


02 


14.0 15 7"' 
«T ' 3- -2.5 


T • 


• * 

-•O 


r. 


175 " " .i * 

»TíO *.2 U) *U 


" = 0 
“53 
"c6 
753 
U-.5 
752 
755 
736 
5 Cl 
L ♦ . 
504 
50" 
510 
513 
516 
513 
522 
£25 
526 
531 
534 

537 

640 

543 

646 

£43 

552 

555 

555 

561 

564 

567 

570 

573 

674 


_E“ üüsRB 
SCSUE OS 

PSINT 1 CGD . " 1S3' .".H 

_E~ LR* IN** ( |7 f o * -5 U« 4- 


i_E" L' - =Lh 
03 SUB 05 
&SINT • CGD 
-E“ B9*IN~ 


"205 221"" " .KS 
• <T 0» *1.5 - Ui *'J 


LE* UL-sBC • 

3 3 SUB 05 

P3INT * CGD.' 215 230. K| 

Uu *00 »PR ♦LP-BO 
LET VJ»UU 
035UE OS 

ppirrr " cg:. 2 72. ,ks 

PSIflT 
LE" ULsMN 
033 UB 05 

PP lílT - COD. •”•260 ••••." ,K$ 

LE* Uj*L :s 
035 UB 05 

PSINT *' COD . ’* "293" " . , Kf 

LE* MNF sMN-L 1 0' 

LE* Uj=HNF 
03SUB 05 

PBINT " COD. " "SiB""': **, K $ 

LET UUsUU 
03SUB 05 

PSINT "COC .'•"329 . ,K$ 

LE* U'J*MNF ♦UJ 
03SUB 05 

PPIíiT "COC . "337/368 .. K$ 

PPIMT "- 


575 

576 

Ç7*7 

576 

573 

551 

552 

es 3 

554 
5 55 
656 
557 
565 


INPUT U* 

l c U$*" I** THEN CCf < 

CL 5 
NE.<T 0 

I F TO< >0 THEN GOTO 894 
FjP 0*1 T3 5 
i-E* TO*TO*T (G; 

LET ftOsRO^ftíOJ 
LE7 LQsLG+L(0) 

•JE*T 0 


LET 0*6 

PRIMT " 


GUIfl UN3CP 


!59 ^ET T 0 - «TO 
: 30 -ET ftí O'*PO 
531 -ET L\0' «LO 


M 




693 GQTO 660 

(61 ♦T i Ci *T í0) *T (C • ♦ 

T .F ■ 

395 LET FGT5*INT • ( í i BC*5C «-5DI * 
I/U)*U>/U+.5I 

697 PRINT . . "FUNCIONRP105" . R• 6 < 
♦ R CC j CDi ♦ R »E) *R f F J 
900 PRINT . . *BRSE DE CRLCULO “ 
BC «-5C 4-5D 

903 PRINT , ."F.G.T.S. “,FGTS 
909 INPÜT X % 

912 IF X6s"I" THCN COPV 

913 CL5 

915 IF IRRPO0 THEN GOTO 921 

916 GOTO 92™ 


m 

SP 

1 


m 


926 

PRINT 

RT 

J»J,AR, 

; p/ 

0UTR05 

CRLC 

UL05 

D13 

ITE 1 "O" 



930 

PPINT 

RT 

F. ♦ J , RA, 

•p/ 

TERMINR 


P DIGITE ••‘NEU LINE' 

933 INPUT O* 

936 IF 0*«’0“ THEN CLS 
929 IF 0*«"0" THEN RUN 
942 CLS 

PRINT RT 10,6. 


94 6 61 


146 STOP 
951 LET Kfs 
954 LET CC-LEN 5TP« UU 
957 LET K$ < (K+D* -CC TO 
TRS UU 
960 RETURN 
963 STOP 

966 SRUE “FL R^T®" 

969 GOTO 1 
1000 CL5 

PRINT 


<*C» *S 


m 


FO-HR DE PPG 
DERSRQ 3 - RGOS 


*5 PRINT , 

RMENT 0" 

1020 PRINT ** 

TO 63“ 

010 PP INT 
flpfi|HPD 13IT E 1 

2030 PPINT "F, INICIRR IRLCULOS 
2035 PRINT 
040 PPIN^ 

■■DIGITE 2" 

2050 PRINT "C GRRUaP 0 PROGRPMP 
•’,"COH R FOLHR DE PRGRMENTO.- 
2060 C PINT 'GUIR5 DE IRPRS E FGT 

2070 PPINT ' 5EH OS CONTRR-CHEQUE 
S" 

2075 PRINT 
2060 PPINT 

(■■digite 

2090 PRINT 
2100 PRINT 
S, SE" 

2110 PRINT 
UIURDO" 

212^PRINT , , 

ÍW^INPUT PP 
2152 IF RR0*0 RND PP 
NT RT 51.0 •DIGITE 1 

2160 IF RR1=0 RND PP 
0 2150 

2161 CL5 

2162 IF PP=1 THEN GOTO 10 
2170 IF PPx2 THEN GOTO 3000 
'1Ô0 IF PPaj THEN GOTO 537 
Í300 SRUE "FL PG TB" 

3210 GOTO 2000 


P/ RESUHI DR FOLHR." 
GüIRS DE IRP-5 E FGT 

JRH CALCULADO OU RPO 


1 THEN RPI 
1 THEN GOT 


Para grava* use GOTO 966 
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ECONOMIZE MEMÓRIA 


01. Elimine as instruções REM, prefácios explicativos e linhas que 
excluam respostas indesejáveis. 

02 . imprima todas as mensagens e simboloa, no canto esquerdo da te 
la. 

03. Reduza o número de linhas do programa ao mínimo, vide o capltu 
lo ••bytes”. 

04. Não dimensione matrizes,a menos que necessário. 

05. Elimine todos os resultados intermediários em cálculos. 

Por exemplo: A/(B*C), use A/B/C 

06. Reduza a uma mesma linha todas as operações aritméticas, rela 
**ionais e loqicas possíveis. 

07. Remova IF X»# THEN ... e use IF NOT X THEN ..., voce economiza 
uma constante numérica. Seis bytes. 

08. Remova IF T> IN THEN LET T-T*1 e use LET T-T»(T>1M). 

Na setença matemática se verdadeiro -1, se falso 

09. Remova IN IF INKEY$=”M” THEN LET Y-Y+1 

11# IF INKEY$*”N" THEN LET Y-Y-1 e use: 

1®® LET Y-Y*(1 ANO INKEY*»"*")-<1 ANO INKEY$-”N"), como no pro 
grama “invasores”, linhas 7# s IN. Ou ainda usa: 

1®OLET Y»Y-+Í INKEY$-"M”)-(INKEYS*"N" ), pelo mesmo principio do 
ítem 08 . 

1®. Use variável, ao invés de constantes numéricas, sempre que vo 
ce for repetir um numero mais que tres vezes no programa , pe 
las razões expostas no capitulo "bytes". 

11. Use os valores das funções e códigos disponíveis, ao invés de 
introduzir constantes numéricas e/ou variáveis. Por exemplo: 
LET A»® ou LET A«1, ocupa 15 bytes, use: 

LET A-PI/PI, LET A-PI-PI, etc. 

12. Remova 1® LET A-1, 2® LET B-1 e use: 

1® LET A*l, 2® LET B«A. Isto economiza cinco bytes. 

13. Dê preferência A PEEX e POKE, para armazenar valores, sempre 
que possível. 

14. Transforme as constantes nusmricas, ss forem muitas, em uma só 
variável literal (alfanumérica), isto é: coloque todos os ca 
ractsrss numéricos um ao lado do outro, atribua-lhes o nome de 
uma variável literal e passe a manipula-los como tal. Utilize 
LET A$«A$(X TO N) e/ou COOE A$, como por exemplo, no "jogo da 
velha”, para recuperar valores. 
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15. "Overlaying". Voce pode sobrepor um programa em outro de vá 
na» formas, com inúmeras vantagens. Por exemplo: Use um peoue 
no programa so para definir as variaveis de um programa prlnci 
pal. Pode "a definição das variáveis" e a seguir apague-a , li 
nha por linha. Os valores permanecerão arquivados.se voce não 
usar RUN; use GOTO 1 
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RENUMERADOR DE UNHAS 


Este prograam é um r«nu*«rtdor de linhas de programa per* 2 Kbytes 
de RAM, em um« sub-rotina em código de máquina que ocupa apenas 40 
bytes, protegidos contra NEM, SAVE e LIST. 

*♦4 0 é o MSM programa renumerador comercializado pela Micron Ele 
trônica Com. Ind. Ltda. no cassette denominado FUNÇÕES I (16K), o 
qual ocupa cerca de 400 bytes de rotinas, também em código de má 
quina, renumerando, inclusive, após as instruções GOTO e QOSUB.Con 
tudo, a principal técnica de proteção a SAVE, NEW e LIST é a mesma 
aqui descrita. 

Para que o programa interno do micro desempenhe as instruções NEW, 
SAVE e outras, é importante que ele saiba onde se inicia e termina 
a RAM, entre outras coisas. Estes dados referentes ao funcionaroen 
to do sistema são armazenados na RAM, nos endereços de 16383 a 
16508. São eles as variáveis do sistema (operacional); nio confun 
dir com sistema de variáveis (do programa usuário).Nestas variáve 
is está a denominada RAM TOP, topo da RAM. 

O efeito de "proteção" é obtido pela alteração desta variável. 
Descrição do programa: 

A linha 01 faz com que o programa "saia rodando" após a leitura do 
cassette.A linha 02 contém 40 caracteres quaisquer que reservam 40 
bytes para a rotina em código de máquina, a ser entrada.com o auxi 
lio do endereçador de códigos das linhas 1000 em diante. As linhas 
140 e 150 reduzem o RAM TOP em 256 bytes. 0 endereço RAM TOP é i 
gual a PEEK 16388 ♦ 256 * PEEJt 1638®. Aa linhas 160 a 180 transfe 
rem 40 bytes de códigos da linha 2 REM para os endereços ac iam do 
RAM TOP. Aa linhas 185 a 340 apresentam no video uma descrição de 
uso do programa. A linha 350 faz com que o programa pare sem a men 
sagem ds erro ou cursor no vídeo. 

A linha 360 limpa a memória "baixa". 

Digite o programa abaixo: 

1 SAVE "REN" 

2 REM 1234567890123456789012345678901234567890 
130 LET X=(PEEK 163Be*256"PEEK16389)-256 

140 LET K=( PEEK 16389J-1 

150 POKE 16389,K 

160 FOR N=1 TO 40 

170 POKE (X*N), PEEK(16524*N) 

175 ir N=32 TMEN LET X=X*92 
180 NEXT N 

185 PR1NT •RENUMERADOR","P/ 2KRAM" 

190 PRINT -ESTE PROGRAMA," 




2## PRINT 
21 $ PRINT 
220 PRINT 
220 PRINT 
235 PRINT 
237 PRINT 
24# PRINT 
20 PRINT 
26# PRINT 
210 PRINT 
272 PRINT 
274 PRINT 
276 PRINT 
230 PRINT 
29# PRINT 
200 PRINT 
3#5 PRINT 
31# PRINT 
32# PRINT 
240 PRINT 
35# LET A 


"EM CODICO DE MÁQUINA" 

"EH UM RENUMERADOR DE LINHAS." 

"DIGITE NEW E C SEU PROGRAMA," 
"OU CARREGUE-0 DO CASSETTE." 
"SUA RAM SERAH 2K-256 BYTES." 

"PARA RENUME RAR AS LINHAS," 

"DE 1# EM 1#, DIGITE DIRETO:" 
"LET L=USR 183##" 

"PARA RENUMERAR AS LINHAS," 

"DE 1 EM 1, DIGITE ANTES:" 
"POKE 18194,1" 

"ESTE PROGRAMA ESTA PROTEGIDO" 
"CONTRA 5 A VE , LIS T ,NEW,ETC..." 

"PROIBIDO REPRODUZIR" 

"TODOS OS DIREITOS RESERVADOS" 
"MICRON ELETRÔNICA" 

USR 681 


36# NEW 

1### fOR X = 1 TO 40 

1#3# PRINT "ENDCRE yU x";16524 + X,"CODICO:"J 

1#4# INPUT C 

1#50 PRINT C 

1#6# POKE 16524 + X ,C 

1010 ir x/15 r 1NT (x/15) THEN CLS 

1#6# NEXT X 


NÃO ROOE o programa. Confira-o c grave-o pela instruçio SAVE " TES 
TE". A seguir digite RUN 1000 e ser-lhe-á mostrado: 

"ENOEREÇO: 1W25 CÓOIGO:" 

Oigite o código correspondente aos endereços informados, conforme 
relaçio abaixo: 
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ENDEREÇO 

16525 

16526 

16527 
16529 
16529 
1653# 

16531 

16532 

16533 

16534 

16535 

16536 

16537 

16538 

16539 
1654# 
1654 1 

16542 

16543 

16544 

16545 


CÓOIQO 

ENDEREÇO 

17 

16546 

124 

16547 

64 

16548 

33 

16549 

1# 

1655# 

00 

16551 

26 

16552 

61 

16553 

254 

16554 

117 

16555 

192 

16556 

19 

16557 

26 

16559 

254 

16559 

39 

1656# 

?#8 

16561 

1 

16562 

10 

16563 

0 

16564 


9 

235 


CÓOIQO 

114 
35 

115 
35 
79 
35 
7# 

9 

235 

24 

23# 

62 

116 
5# 

124 

64 

195 

0 

71 


Agora grave o programa, digitando GOTO 1 

Após a gravação, o programa "sairá rodando", apresentando no video 
as instruções de uso. 

Digite NEW e teste o renumerador,conforme as instruções. 

Caso nio funcione, volte à prir-eira gravação e redigite os códigos 
coa» muita atenção. 

Leia mais sobre este programa e outros em código, no livro ” COOI 
00 DE MÁQUINA". 



ENDEREÇADOR PARA CÓDIGO 

DE MÁDUiNA 


EM DECIMAL 


0 programa a seguir per-iite entrar um programa em linguagem de má 
quina, nos endereços posteriores á instruçio REM, na primeira li 
nha, para ser chamado como uma aub-rotina. 

Preencha a instrução REM com tantos caracteres,quanto for o número 
oe bytes do programa em linguagem de máquina. Isto reservará um es 
paço ra memória . 

10 REM 111111112222222233333333333344444$4.... 

20 FOR X =1 TO N (N = n0 de bytes em linguagem de mácuina) 
30 PRINT X ; "O PASSO = " ; 165134X ; " DIGITE EM DECIMAL " ; 

40 INPUT U$ 

30 PRINT US 

70 1 r X/15 = IflT (x/15) THEN CLS 
90 POKE 16513 + X, l/AL US 
90 NE XT X 


EM HEXADECIMAL 


Para entrar o programa e« linguagem de máquina, diretamente em he 
xadecimal (2 dígitos), acrescente: 


30 PRINT X;"E PASSO =";16513+X; H DIGITE EM HEX "; 
60 LET U = 16 * CODE U$ 4 COOE U$(2) - 476 
80'DQKE 165134 X, U 


Observe que laaa vez endereçados valores,o conteúdo da instrução 
REM terá mudado. 

O programa em linguagem de máquina poderá ser chamado na forma de 
uma sub-rotina, pelo uso do comando USR 16514. 
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LEITOR DE CÓDIGO DE MÁQUINA 


Este programa lê os códigos em decimais e hexadecimais, fornecendo 
ainda o ca-actere equivalente e endereço para N bytes. 

9900 PRINT "QLAL 0 1 ENDEREÇO ?• 

9905 INPUT N 

9910 PRINT "QTOS BYTES A LER ?" 

9915 INPUT K 
9920 FOR X = 1 TO K 

9906 LET N = N - 1 

9925 LET Y =PECK (N ♦ X) 

9930 LET E = INT (Y / 16) 

9935 LET D =(Y - 16 • C) ♦ 26 

9940 LET E = E ♦ 26 

9945 LET HS í CHRI(E) ♦ CHRS(D) 

9950 PRINT N*X;" ";CHR$(PEEK (X*N)),"HEX DEC = " ; 

PEEK (N-*X) 

9955 ir X/15 = INT (X/15) THEN COTO 9970 
9960 NEXT X 
9970 INPUT K$ 

9980 CL5 
9990 NEXT X 


Observe os espaços existentes na linha 9950 . 

Serão impressas tabelas com 15 endereços, podendo-se alterar na li 
nha 9955. 

Para rodar use RUN 9900 

Este programa deve ser escrito em conjunto com o qual se queira 
ler, a menos que voce leia a ROM nos endereços de 0 a 8191. 

Caso o programa/sub-rot ma a ser lido esteja na primeira linha do 
programa, após a instrução, o endereço e 16514. 
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Micron Eletrônica 


Comentários, sugestões e criticas serio be» recebidos 
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HARD E FIRMWARE 

PARA R!CROO*?j!AüOKlS 80/81 IK ê?C «C ZeOOD 



TECLADC MECÂNICO 


Kit oari montagem de jm teclado de acionamento mecânico. Contém 
40 teclas gravadas e" baixo relevo a duas cores, excluindo os 
simoolos gráficos, tres painéis pintados em esmalte poliuretano 
cinza metálico, sendo dois deles em fiberglass com letreiros em 
resina epoxi preta. Contém adesivos, interruptor e o gabinete 
em madeira, sem acabamento. 

TECLADO MECÂNICO EM KIT Cr$ 

CLUBE NACIONAL OOS F K/NE/SINCLAIR - JORNAL MICRO BITS 
Para receber uma cópia de MICRO BITS e maiores informações sobre 
o Clube Nacional dos TK/NE/SINCLAIR, envie Cr$ 300,00 em cheque 
nominal para Oavid Anderson, Caixa Postal 12.4b4 - 04/98 -SP -SP 


ACRESCENTE AC SEU MICRO UMA EPROM DE 2 KBYTES 
COM PROGRAMAS PRE -GRAVADOS 



Circuito leitor ü*- ' i 19 ado entre o miei w u. c*f'«nsio 
de memória, lê programar, de uma EPROM pre-gravsda com o uso 
da função USR. 

Montado em placa de fiberglass com 9 * 10 cm pcssui termina 
is em banho de ouro. Não reque- alimentação exte-na ou alte 
rações no micro. Pode ser usado com Expansões e Printer. 

CIRCUITO LEITOR 0 E EPROM Cr$ 


VANTAGENS: 

PKOGRAMAÍS) PHONTO(S) PARA ROOAR, SEM OCUPAR ESPAÇO NA RAM. 
NÃO PRECISAM SER CARREGADOS DO CASSETTE, t SÓ LIGAR. 
FUNCICMAM COM OUTROS PROGRAMAS CARREGADOS VIA TECLADO (X) K7. 


EPRCM PRÉ-GRAVADA 

- FUNÇÕES I 

0 mesmo programa do K7 

Cr$ 

EPROM PRÉ-GRAVADA 

- RAM IOPER 

O mesmo programa do K7 

Cr* 


LITERATURA PARA 
MICROCOMPUTADORES SINCLAIR 

HHHHMHHIHHi m/cron 


• 48 PROGRAMAS PRONTOS PARA RODAR EM TK S2C E NE ZiOOO 

8 » Edlçlo, reimpressa Cr$ 5.500 

Arquivo* - Estoque - Plano Contábil - Folhe d* Pagamento - Agendo 
Telefónico - Cago oo Peto - Trilhe - Jogo de Velho - Force - Dedo 
Tebelae - Tebuedao - Corwerolo de Coordenados - Médio - Progrs* 
oie - Tabele Price - Fibonaccl - Depreciação - Renumersdor de II 
nheo em Código - etc... 


• APLICAÇÕES SÉRIAS PARA TK MC ■ CP 200 

3* Edlçlo, etuelisedo e com nove composição gráfico CrS 7.500 

Ou em á Sinclair - Convertendo outros BMlco - Contendo oo Syteo 
Economliando Memória - Flusogramas - Top Oo«n - Erros de RCM - Co 
nhecendo e Impressora - Chalnlng Programes - Sub -rotinas em Cas 
setto - Folhe de Pagamento - Balancete - Correçlo Monetária do X 
•obi 1 liado - Das ContrIbulçBee do IAPAS - Contes a Receber - Ce 
destro de Clientes - Conte Sencárle - Correçlo de Provee - Proces 
eador de Tsstos - Eetetlstice - Custos - Orçamento Doméstico - Ram 
Toper em Código - etc... 


• 30 JOGOS PARA TKS2C E CP 200 

2« Edlçlo CrS 6.000 

Dsmse - Labirinto - Enterprise - Coife - Velha - Visita ao Caatelo 
Cesaino - Roleta ftuaaa - Corrida da Cavaloa - Vinte e Um.Cubo Má 
glee - Senha - Banes Xmoblllárlp - Force - Dedos - Invasores - ate. 
PROGRAMAS NO CÓOIGO OA MÁQUINA 

Invsrslo ds video - Som por Software - Labirinto - Destrava Soft 

• CÓOIGO DE MÁQUINA PARA TK E CP 200 

1* Edlçlo CrS 9.000 

Números Binários e Hanadecimais - Arquitetura do Z80 -Editando em 
Código - Programa para Edlçlo - As InatruçÓea do ZSO em Eiemplos 
Bub-rotinas da ROM - A ROM de BK - Dicionário des Instruçfies - He* 
X Mnemónicos - Mas X Dacimal - Incluindo oa Programas Bcroll - Se 
va Olaplay no R»s Top - Contadoraa da Pontos ou Tempo - DataFile 
Renumbar - Labirinto - Som por Boftmarp - Micron Pac - Bombardeio 
etc... 


• SINCLAIR BK ROM — DtSASSEMBLY COMPLETO COMENTADO 

Em Lançamento MARÇO/B4 


SOFTWARE PARA 
MICROCOMPUTADORES SINCLAIR 



ZX SOFTWARE 


09 QUATRO MELHORES PROGRAMAS EM CÓOJGO, JAMAIS PROOUZIDC6 
PARA LM SINCLAIR EM UM ÚNICO CASSETTE. POR APENAS CrS 15.000 


Assemblar 

£ AC rt va o* atui programa» om código, usando dlretamente oa *ne*»} 
Alcot do Z80 COA titt Editor t Monitor Oa A.aembly. InttrprttA t£ 
dAA AA Inatruçdsa do Z80. OftrtCA tictltnttl facilidades do mói 
çlo. manipulação do cursor, códigos do trro, entrada do tonto, nú 
meros, labeis, repetição dt ttcls, otc... 


Disaseembler 

Lé códigos «o Assembly do Z80. Fornece os endereço» »m decimal, 
os códigos a* he*adecim*l saguidos do» mnemftnlco» completo». In 
terpreta todas ss instruçBea do Z80. 


Compilar 

T r»n»fora» instantaneamente o» mu» programa» em Basic «• progra 
atas •• código, usando o Coa*>iler. Aceita quase todo» oa comandos 
do Basic Sinclair a passa a rodar o» programas até 50 veia» maia 
rápido. 


Montor 

Programa para eatudo de programas em código. Permite listar a Me 
stórla, Ragiatora o Flaga. Podo-se ainda introduzir Sreakpoints, 
converter He* para Decimal, decimal para Ha* ate... 


Diatribuido por : 


MtCnOti EIETRÕMCA 




